in reply to Grep question

{ my $i; @statusoption = grep { $i or ($_ eq $status && ++$i) } @statusoption +; }