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

  # Take in whole records separated by five dashes instead of a
  # newline character.
  $/ = "-----";
  while($record = <INFILE>)
  {
    # Print out a counter to show how far the filling has progressed.
#    print "$n\n";
#    $n++;

    @newrecord = ();
    # Send the record to have any blank lines removed.
    @newrecord = CleanData( $record );
-----
### FILL ACHROMS TABLE ###########################################

  # Take in whole records separated by five dashes instead of a
  # newline character.
  $/ = "-----";
  while(my $record = <INFILE>)
  {
    # Print out a counter to show how far the filling has progressed.
#    print "$n\n";
#    $n++;

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

##</code><code>##

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

##</code><code>##

sub CleanData
{
    my ($record, @cleanrecord, $line, @record);
    $record = $_[0];

    ### Separate the record by newlines.
    @record = split /\n/, $record;

    ### Remove empty lines if they exist.
    foreach $line ( @record )
    {
      chomp( $line );
      next if ( $line =~ m/^\s*$/ );
      push @cleanrecord, $line;
    }
    return ( @cleanrecord );
}
----
sub CleanData
{
    my $record = shift;

    my @cleanrecord = grep { /\S/ } chomp(split($/, $record));

    return \@cleanrecord;
}

##</code><code>##

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

##</code><code>##

sub ParseAChroms {
    my $achromref = shift;

    my $matches = join '|', (
        'BAC:',
        'LENGTH:',
        'OSOME:',
        'CHR_START:',
        'CHR_END:',
        'BAC_START:',
        'BAC_END:',
        'ORIENTATION:',
    );

    my @achrom;
    my $line = join '', @$achromref;
    push @achrom, $line =~ /\b([BY]AC\b/;
    push @achrom, $line =~ /(?:$matches)\s*(.*?)\s*/g;

    return \@achrom;
}

##</code><code>##

sub ParseAChroms {
    my $achromref = shift;

    my $matches = join '|', (
        'BAC:',
        'LENGTH:',
        'OSOME:',
        'CHR_START:',
        'CHR_END:',
        'BAC_START:',
        'BAC_END:',
        'ORIENTATION:',
    );

    my $line = join '', @$achromref;
    my %achrom = $line =~ /($matches)\s*(.*?)\s*/og;
    $achrom{TYPE} = $line =~ /\b([BY]AC\b/o;

    return \%achrom;

##</code><code>##

my $match_achrom_statement = << STH_MATCH;
SELECT ac_id
  FROM achroms
 WHERE ac_id = ?
STH_MATCH

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