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