%newhash = reverse do { my $hash = reverse %myhash; %hash };