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