die namen tust du in einen hash.
my %fime
while ( FOO ) {
$filmame = $schleifen_variable_die_die_einzelen_zeilen_der_txt_enthaehlt
$filme{$filmname}++;
}
dann eine nette 'sort' funktion. Und schwupps:
foreach $filmname ( sort { $filme{ $a } <=> $filme{ $b } keys %filme ) {
print " Film = $filmname\n";
print " FileVotes = $filme($filmname}\n";
}
Für eigene sortier funktionen aufsteigend,absteigend alphabetisch:
RTFM. d.h >perldoc perlfunc
P.S.
http://www.masonhq.com
das bringt richtig spass