>>458
my @array = qw/1 2 3/;
print map{$_ + 2}@array;
print "\n";
print @array;

--result
345
123