Select Code to Download

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

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

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

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