Select Code to Download

my %acrhom_prefix = (
    BAC         => '(.*)\s*',
    LENGTH      => '(.*)\s*',
...
    BAC_END     => '(.*)\s*',
    ORIENTATION => '(\w)\w*\s*',
);

sub ParseAChroms
{
     my ($achromref) = @_;
...
                      chr_num chr_start chr_end
                      bac_start bac_end orient]};
}