Yes, though I'm not sure I'd recommend it over the other solutions posted:

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

Update: No need for splice when you just want a slice:

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

Update: But splice is better than reassignment:

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

Here's one that will short-circuit :-D:

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