pajout@balvan:~$ perl -e 'my @a = (1,2,3); print join(",", map {$_*$_} @a)."\n";'
1,4,9