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