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