while (my $newline = <FILEHANDLE>){