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

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

x { print $_ };

##</code><code>##

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

x sub { print $_ };