Help for this page
my %count; ... $count{$3}++ if $3; } }
my %hashes_for; # More sensible name ... } # You can now use scalar(@{$hashes_for{whatever}}) instead of $count{w +hatever}