Help for this page
my @foo = (1..8); my @bar = @foo[map {$_ ^ 1} (0..$#foo)]; print "@bar";
2 1 4 3 6 5 8 7