【perl】散列表的遍历

my %hash;
$hash{"objA"}{"size"}="ewr";
$hash{"objA"}{"width"}="werwer";
$hash{"objB"}{"size"}="ewasdr";
$hash{"objB"}{"width"}="werweasdr";

foreach my $k (grep {/^obj/} keys %hash) {
        print $k, "\n";
        foreach my $subk (keys %{$hash{$k}}) {
                print "\$hash{$k}{$subk} => $hash{$k}{$subk}\n";
        }
        print "\n";
}