use strict;
use warnings;

my @list = 1 .. 10;

for my $loopVar (@list) {
    print $loopVar, ' ';
    ++$loopVar;
}

print "\n@list\n\n";

print join ' ', map {$_ -= 1; $_ - 1} @list;
print "\n@list\n\n";

print join ' ', grep {$_ % 2} @list;
print "\n@list\n\n";

##</code><code>##

1 2 3 4 5 6 7 8 9 10 
2 3 4 5 6 7 8 9 10 11

0 1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9 10

1 3 5 7 9
1 2 3 4 5 6 7 8 9 10