You want something like this:

my %hist;
while(<$fh>){
    ++$hist{ $_ } for split //;
}

for(sort{ $hist{ $b } <=> $hist{ $a } } keys %hist){
    print "'$_' => $hist{ $_ }\n";
}
[download]

but you need to filter out the chars you don't want.