local ($, , $\) = (', ', "\n"); # for print
my @a = (1..10);
print @a;
--$_ foreach @a;
print @a;
map { $_ *= 2 } @a;
print @a;
print grep { $_ *= $_ } @a;
print @a;