@a = (9, 8, 7, 4, 5, 6, 3, 2, 1);  # index 3..5 is wanted
@index = grep { $a[$_+1] > $a[$_] .. $a[$_+1] <= $a[$_] } 0..$#a-1;

print "found index @index = @a[@index]\n";