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

##</code><code>##

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

##</code><code>##

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

print do_something 10;
20

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