while (<MYFILE>)
{
  $alldata .= $_ ;

  if(/(\S+)\s+(\d+)/)
  {
    $mylist{$1} = {value => $2, linenum => $. };
  }
}