Select Code to Download

sub imap {
    my ($transform, $it) = @_;
...
        return $transform->($next);
    }
}

#!/usr/bin/env perl
use 5.010;
...

my @a = ( "1", "2", "3", "4", );
my @b = foo { $_ ** 2 } @a;

my @b = foo { $_ = shift; $_ ** 2 } @a;
my @b = foo { my $var = shift; $var ** 2 } @a;

#!/usr/bin/env perl
use 5.010;
...

my @a = ( "1", "2", "3", "4", );
my @b = foo { $_ ** 2 } @a;