my $hash;
foreach my $line (<FH>) {
  $line =~ /^(\w+)\s(.+)/;
}