#!/usr/bin/perl
use warnings;
use strict;
my %a = (a => 'b', c => 'd', e => 'f');
my %b = reverse %a;
print $b{f}, "\n";