while( <$fh> ){
  if(/(\S+)\s+(\S+)/){
    push @{ $HoA{ $1 } }, $2;
  }
}