Help for this page
$table=[[1,2,3],[a,b,d],[A,D,C]];
@answers = grep { $_->[0] =~ /a/i && $_->[2] =~ /C/} @$table;
%search_elements=(0=>a,2=>C); ... return 1; # ok all match }