foreach my $line (<$filehandle>)