@output = do {my $i = 0; grep {$i++ % 2} @input};