while (<F1>)
   {
      /(\w*) (\d*)/ ;
      $hash1{$1} = $2 ;
   }
##</code><code>##

while (<F1>) {
  if (/(\w*) (\d*)/) {
    $hash1{$1} = $2;
  } else {
    warn "Invalid input line $.: $_\n";
  }
}