# choice number 0 1 2 3 4 5 6 my @choices = ([0,6], [0..2], [2..5], [3], [4], [2,5], [6]); my $num = $some_obj->get_status; my @newlist = @list[ @{ $choices[$num] } ]; local $"=', '; print "Result: status = $num; list=@newlist";