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

x sub { print $_ };