while( my( $key, $value ) = each %hash ) {
...

##</code><code>##

while( my $key = each %hash ) {
    ...
    my %reversed = reverse %h;
    ...
}

##</code><code>##

print "$key: ", %hash;