Might your strings be numeric, or can you simply grep out non-digits?

@array = grep !/\D/, @array;
[download]

Otherwise, I'd grab every other like:

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