my @foo = (1..8);

my @bar = @foo[map {$_ ^ 1} (0..$#foo)];

print "@bar";

##</code><code>##

2 1 4 3 6 5 8 7