Select Code to Download

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

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

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