my @statusoption = ('Waiting Approval' , 'Denied' , 'Approved' , 'Orderred' , 'Building' , 'Built' , 'Shipped');


my $i = 0;
while ($status ne @statusoption[$i]){
   ++$i;
}
@statusoption = splice(@statusoption, $i);