1 2 3 4 5 6
#!/usr/bin/perl use warnings; use strict; my %a = (a => 'b', c => 'd', e => 'f'); my %b = reverse %a; print $b{f}, "\n";
12
$ ./hashtest.ple