Select Code to Download

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

 if ($line =~ m/CHROMOSOME:\s*(\d*)\s*$/)
    {
...
   } elseif( $type eq "NUM_FOO ) {
      # do num foo
   }