while (<INFILE>) {@lines = $_;}
foreach (@lines) {print LOGFILE $_;}