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