Select Code to Download

print a(\&do_something)->(1 .. 5);

print map do_something( $_ ) , 1 .. 5;

sub do_something { map{ $_ * 2 } @_ }

...

print do_something 1..5;
2 4 6 8 10