while ( my($key, $value) = each %hash ) {
        print "$key = $value\n";
        foreach my $key (keys %hash) {
            print "\t$key\n";
        }
    }