[PERL] lire contenu fichier .xls

#!/usr/bin/perl -w
use strict;
# --- Retourne le contenu du fichier dont le chemin est passé en paramètre
sub lecture {
    my @contenu = ();
    open(FILE, "$_[0]") || die "Erreur E/S: $!\n";
    @contenu = <FILE>;
    close(FILE);
    return @contenu;
}

sub lecture {
    open IN, $_[0] or die "Impossible d'ouvrir le fichier $_[0] pour la cause suivante : $!\n";
    my $infos_fichier = "";
    while( $infos_fichier .= <IN> ) {
        ;
    }
    close IN;
    return $infos_fichier;
} 

#!/usr/bin/perl -w

#!/usr/bin/perl -w
use strict;

sub lecture {
	my $fichier_in = "./essai.xls";
	open (IN, "$fichier_in") || die "Impossible d'ouvrir le fichier essai.xls pour la cause suivante : $!\n";
	my @infos_fichier = <IN>;
	close IN;
	return @infos_fichier;
}

sub ecriture {
	my $fichier_out = "./ecriturexls.txt";
	open (OUT,">$fichier_out");
	foreach my $valeur (@_) {
		print OUT $valeur;
	}
	close(OUT);
}

my @infos_fichier = &lecture;
&ecriture(@infos_fichier);