my $t = 0;
map { $t++ %2 ? $_ : () } LIST