programming-examples/perl/Hash/Using variable as the key to get the value stored in a hash.pl

#!/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";