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