Select Code to Download

sub Map {
...
@increased = Map \&foo, (1,2,3);
print "@increased\n";

sub Map {
...
$inc = Map \&foo;
@increased = $inc->(1,2,3);
print "@increased\n";

sub Map {
  my $sub = shift();
...
    return @new_arr;
  }
}

@incremented = Map(\&foo)->(1,2,3)

$Inc = Map(\&foo);
@incremented = $Inc->(1,2,3)