Select Code to Download

while ( defined( my $record = <$input_fh> ) ) {
    my %record_hash = rec2hash( $record );
...
        push @{ $records_for{ $field }{ $variant } }, $record;
    }
}