while (my($name,$n1,$n2)=split(' ',<INFILE>) {
   # do something...
   }