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