my $i;
@array = grep ++$i%2, @array;