for my $key ( keys %rules ) {
     print "$key => @{$rules{$key}}\n";
}