foreach $line (<INFILE>) {