Builtin method of culling all values outside lower and upper, perl array

Question

I've got an array in perl which contains sorted non-contiguous values. For example: 1 2 3 5 7 11 13 15.

I want to remove all values that are outside lower and upper, keeping lower and upper in the returned selection. My method of doing that looks like this (could probably be improved by using slice):

my @culledArray;
for ( my $i = 0; $i < scalar(@array); $i++ ) { 
    if ( ( $array[$i] <= $_[1] ) and ( $array[$i] >= $_[0] ) ) { 
       push(@culledArray, $array[$i]);
    }
}

where the lower and upper are contained in $_[0] and $_[1], respectively. Is there a perl builtin that does this?

Answer 1

Don't know anything built-in that would do that (that is quite a specific requirement), but you can save yourself some typing by using grep:

my @culledArray = grep {( $_ <= $_[1] ) and ( $_ >= $_[0] )} @array;

If the list is long and you don't want to copy it, finding the start and end indices and using a slice might be interesting.