my @fields = split /$field_separator/, $record;

##</code><code>##

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