Select Code to Download

use Data::Dumper;
my %h = (1 => 2, a => "b", c => 2);

print Dumper [ my %x = reverse %h ];

print Dumper { my %x = reverse %h };

%h = reverse do { my %q = reverse %h; %q };