$name{$hashkey}++;

##</code><code>##

print "$_  $name{$_}\n" for keys %name;

##</code><code>##

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