while (defined (my $record = <$filehandle>)) {