sub twice { 2 * $_[0] }

@a = map twice, 1..3;

print "@a\n";

==> 0 0 0