Select Code to Download

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

 2
1 2
a b

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

1 2
a b