Select Code to Download

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')
...
                # with that subroutine.

    ()          # Otherwise, return undef