while ( <$input> ) { 
         chomp; 
         my @row = split;
         #stuff
     }