### 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 );