Select Code to Download

# contrived
my $incAll = map { $_++ };
...
my @data2 = return_some_other_numbers();
$incAll->(@data);
$incAll->(@data2);

sub makeIncr {
  my $incr = $_[0];
  return map { $_ += $incr };
}