Hash Perl

#!/usr/bin/perl -w
use strict;
my %where = (
     A     => "AA",
     B     => "BB",
     C     => "CC",
     D     => "DD"
);
foreach (values %where) {
    print "someone lives in $_\n";
}