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

##</code><code>##

push(@array, splice(@array, $pos, 1))