[nirvana:~] sporty% !vi
vi t.pl

sub x(&)
{
        my $a = shift;
        my @b = (1,2);
        map &{$a}, @b;
}

x { print $_ };