##
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