@array = grep !/\D/, @array;

##</code><code>##

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