Select Code to Download

my $table = [ [qw(1 2 3)], [qw(a b d)], [qw(A D C)]] ;
my $search_pattern = { 0=> 'a', 2 => 'c', };
...
}

my @found = grep {findit $_, $search_pattern, } @{$table};