note wind use <a href="http://perldoc.perl.org/perlop.html#Bitwise-Or-and-Exclusive-Or">xor</a> on the array indexes: <code> my @foo = (1..8); my @bar = @foo[map {$_ ^ 1} (0..$#foo)]; print "@bar"; </code> Outputs <code> 2 1 4 3 6 5 8 7 </code> - Miller 891508 891508