open $file, 'test.txt';
map {$freq{lc $_}++} split for <$file>;
for $word (sort {$freq{$b} <=> $freq{$a}} keys %freq) {
    print "$word: $freq{$word}\n";
}