@foo = (1 .. 8);
    @bar = map { $_%2 ? $foo[$_] : $foo[$_-2] } 1 .. @foo;