There are two possibilities I see here. First, you may not be assigning anything to $_. If you are not getting any numerical output, this is your issue.

Second, if not every key gets hit, then some elements will never be initialized. You can fix this either by initializing all elements in %count to zero before the loop ($count{$_} = 0 for @findle;) or limit your output to cycling over keys where you got hits:

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