my @foo = (1..8);

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

print "@bar";