Select Code to Download

my $rule_code = "";
foreach my $rulenum ( keys %$rulelist ){
...
     return undef; # we did not match any rules!!
};
EOT

DEFECT:
    foreach my $defect ( @$list ){
...
           push @{$summary->{FILTEREDLIST}->{$rule}}, $defect;
        }
    }