@statusoption = splice(@statusoption,
     (grep $statusoption[$_] eq $status, 0..$#statusoption)[0]);


##</code><code>##

@statusoption = @statusoption[
(grep {$status eq $statusoption[$_]} 0..$#statusoption)[0]
..$#statusoption];


##</code><code>##

splice(@statusoption, 0, (grep $status eq $statusoption[$_], 0..$#statusoption)[0]);


##</code><code>##

splice(@statusoption, 0,
   &{sub {
       grep {$status eq $statusoption[$_] and return $_} 0..$#statusoption
    }}
);