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