Select Code to Download

use strict; use warnings;
sub f($) { return $_ [0] + 1 };
my @a = (1, 2, 3);
map (f, @a)