%h = (1 => 2, a=>"b", c => 2);
%h = reverse (%x = reverse %h); 
foreach my $n (keys %h) {
  print "$n $h{$n}\n";
}

##</code><code>##

 2
1 2
a b

##</code><code>##

%h = (1 => 2, a=>"b", c => 2);
%x = reverse %h;
%h = reverse %x; 
foreach my $n (keys %h) {
  print "$n $h{$n}\n";
}

##</code><code>##

1 2
a b