my @newarray;
foreach my $i (@arrayindex) {
   push @newarray,$array[$i];
}

##</code><code>##

my @kept = grep { $_ < 4 and $_ > 10 } @array;

##</code><code>##

@array = grep { $_ < 4 and $_ > 10 } @array;