my @array;
while (<INFILE>) {
{
  . . .
  push @array, split(/\s+/, $line); 
  . . .
}