Select Code to Download

    perl -ne 'END{print"$v\t$k\n"while($k,$v)=each%h} $h{substr$_,0,5}
+++' file

    perl -ne 'END{printf"%7d %s\n",$h{$_},$_for keys%h} $h{substr$_,0,
+5}++' file

    perl -pe '$h{substr$_,0,5}++ }{ print"$h{$_}\t$_\n"for+keys%h' fil
+e