if(/(\S+)\s+(\d+)/)
 {
  $mylist{$1} = $2;
 }

##</code><code>##

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