in reply to Obtaining number of counts per each name in hash

You want to increment the value of the key as each occurrence is found: 

$name{$hashkey}++;

[download]
And then later: 
print "$_  $name{$_}\n" for keys %name;

[download]

You could trim up your code a bit as well: 

if ($line =~ /(\S+)/) {
   $name{$1}++;
}

[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom