perl -e '%h = ( q => 2, w => 2 ); print reverse %h = reverse %h'

##</code><code>##

perl -MData::Dumper -le '%h = (1 => 2, a=>"b", c => 2); %h = reverse ( %x = reverse %h); print Dumper({x => \%x, h =>\%h});'
__OUTPUT__
$VAR1 = {
          'x' => {
                   'b' => 'a',
                   '2' => 'c'
                 },
          'h' => {
                   'a' => 2,
                   'c' => 2
                 }
        };

##</code><code>##

perl5.8.4 -MData::Dumper -le '%h = (1 => 2, a=>"b", c => 2); %h = reverse ( %x = reverse %h); print Dumper({x => \%x, h =>\%h});'
__OUTPUT__
$VAR1 = {
          'x' => {
                   'b' => 'a',
                   '2' => 'c'
                 },
          'h' => {
                   '' => 2
                 }
        };