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