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