foreach my $rule ( keys %$rulelist ){