for my $k1 (keys %hash) {
    for my $k2 (keys %hash) {
    }
}

for my $k (keys %hash) {
    %hash = ();
    ....
}