#!/usr/bin/env perl

use warnings;
use strict;
use MCE::Loop;
use feature qw(say);

my $cpus = MCE::Util->get_ncpu() || 4;
MCE::Loop::init { max_workers => $cpus, };

my %barcode_hash = (
    1 => [ 'AGCTCGTTGTTCGATCCA', 'GAGAGATAGATGATAGTG', 'TTTT_CCCC', 0 ],
    2 => [ 'AGCTCGTTGTTCGATCCA', 'GAGAGATAGATGATAGTG', 'TTTT_AAAA', 0 ],
    3 => [ 'AGCTCGTTGTTCGATCCA', 'GAGAGATAGATGATAGTG', 'TTTT_BBBB', 0 ],
    4 => [ 'AGCTCGTTGTTCGATCCA', 'GAGAGATAGATGATAGTG', 'TTTT_AAAA', 0 ],
);

my $barcode_pair_35 = 'TTTT_AAAA';

mce_loop {
    my ( $mce, $chunk_ref, $chunk_id) = @_;
    for (@$chunk_ref) {
        if ( $barcode_hash{$_}[2] eq $barcode_pair_35 ) {
            say qq(Found $barcode_hash{$_}[2] at $_);
        }
    }
} keys %barcode_hash;

__END__