#!/usr/bin/perl -w

use strict;

my $who = "C";

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

print $where{A}, "\n";
print "$who lives in $where{$who}\n";