Select Code to Download

my @x = (1..10);
foreach (@x) {
...

OUTPUT: 
101 102 103 104 105 106 107 108 109 110

my @x = (1..10);
...

OUTPUT: 
101 102 103 104 105 106 107 108 109 110

 map {$_ += 100} @x;

(yields same output and alters @x as does...)
...
in case you wondered... :)