Select Code to Download

use Data::Dumper;

my %hash=(foo => 'bar', bar => 'baz');
%hash=(%hash, reverse %hash);
print Dumper \%hash;

@hash{values %hash} = keys %hash;