in reply to Get even postion elements in an array

Not much readable, but... 
@input[map 1+2*$_,0 .. @input/2]

[download]

In Section Seekers of Perl Wisdom