use strict;
use warnings;

use Switch;

my %house = ('CC' => 'My Name',
             'AB' => 'AB Name',
             'CD' => 'My friend',
             'EF' => 'Who?');

foreach my $person (keys %house)
{
    print "$person: ";
    switch($person)
    {
        case 'AB'   { print "Mine!\n" }
        case 'CC'   { print "Yours!\n" }
        case 'CD'   { print "Friend!\n" }
        case %house { print "in house, but don't know him!\n" }
        else        { print "I don't know what to do!\n" }
    }
}