use xor on the array indexes:

my @foo = (1..8);

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

print "@bar";
[download]

Outputs

2 1 4 3 6 5 8 7
[download]

- Miller