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;