... my @temp_array = ( [qw'a b'], [qw'c d'] ); my @temp1 = qw'a b'; my @temp2 = qw'c d'; my @temp_exists = map @$_, grep "@temp1" eq "@{$_->[0]}" && "@temp2" eq "@{$_->[1]}", \@temp_array ; print "@$_\n" for @temp_exists ...