use strict;
use warnings;

my %hash = (x => 1, y => 2, z => 3);
my %rhash;

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

print $rhash{1};
[download]

x
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.