Ratazong:

If you're going to use a C-style loop, why use the extra $i++?

for (my $i=1; $i<=$#input; $i+=2) { push @output, $input[$i] }
[download]

...roboticus