Mon script dois dire combien le fichier toto compte de 'a', de 'b', de 'c' ... .

ok, maintenant j'ai compris ce que tu veux
voici le script( et c'est bien plus simple maintenant que je sais ce que tu veux :-)) #!/usr/bin/perl
use warnings;use strict;

my %nb_lettres;

open F_LIRE,"fichier.txt"
or die "E/S: $!\n";

while( my $l=<F_LIRE> ){
foreach (split //,$l){
$nb_lettres{$_}++ if /[a-z]/i;
}
}

foreach (sort keys %nb_lettres){
printf"Il y a %5s de %s\n",$nb_lettres{$_},$_;
}
__END__lami20j