Select Code to Download

### FILL ACHROMS TABLE ###########################################

...

    # Send the record to have any blank lines removed.
    my @newrecord = CleanData( $record );

    @newrecord = CleanData( $record );
----
    my $newrecord = CleanData($record);

sub CleanData
{
...

    return \@cleanrecord;
}

    $sth_update_exon -> execute( @exondata[1,2,3,4],
                                 $geneid, $exondata[0] );

sub ParseAChroms {
    my $achromref = shift;
...

    return \@achrom;
}

sub ParseAChroms {
    my $achromref = shift;
...
    $achrom{TYPE} = $line =~ /\b([BY]AC\b/o;

    return \%achrom;

my $match_achrom_statement = << STH_MATCH;
SELECT ac_id
...
STH_MATCH

my $sth_match_achrom = $dbh->prepare($match_achrom_statement);