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