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