my @got = pair( . . . ); #### my @got2 = map { [$_->[0],$_->[1],'meowmoo'] } @got; #### my @got3 = map { &{$_->[1]}($_->[2]) ? $_->[0] : () } @got2; #### &{$_->[1]} # Get the subroutine referanced in $got2[$i][1] ($_->[2]) ? # Pass in the value of $got2[$i][2] ('meowmoo') $_->[0] : # If the subroutine returned true, then # pass back the key of the "hash" associated # with that subroutine. () # Otherwise, return undef