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";