#!/usr/bin/perl -w

use strict;

my %where = (
    A     => "AA",
    B     => "BB",
    C      => "CC",
    D => "DD"
);

my %who = reverse %where;

foreach (keys %who) {
    print "in $_ lives $who{$_}\n";
}