my $i = 1; print join(" ",grep { $i++ % 2 } l()),"\n";