use PDL;

my $arr = pdl 10..20;;
print $arr, "\n";

my $idx = which( $arr>14 & $arr<19 );
print $idx, "\n";

my $subset = $arr->index( $idx);
print $subset, "\n";

##</code><code>##

[10 11 12 13 14 15 16 17 18 19 20]
[5 6 7 8]
[15 16 17 18]