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