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


##</code><code>##

warn 'scalar ', /(\S+)\s+(\S+)/;
warn 'list ', join '|', /(\S+)\s+(\S+)/;