while (my $row = pop @limits) {
   my ($type, $status, $min, $max) = split /;/, $row;
   @{$set{$type}{$status}}{qw/min max/} = ($min, $max);
}