for my $element (sort keys %count) {
    print "$element\t=>$count{$element}\n";
}