Select Code to Download

$name{$hashkey}++;

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

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