Help for this page

Select Code to Download

Select or download this

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