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;
}