Select Code to Download

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

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

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