my ($pos) = grep { ... } 0..$#array;