use Switch;

    switch ($val) {

            case 1          { print "number 1" }
            case "a"        { print "string a" }
            case [1..10,42] { print "number in list" }
            case (@array)   { print "number in list" }
            case /\w+/      { print "pattern" }
            case qr/\w+/    { print "pattern" }
            case (%hash)    { print "entry in hash" }
            case (\%hash)   { print "entry in hash" }
            case (\&sub)    { print "arg to subroutine" }
            else            { print "previous case not true" }
    }

##</code><code>##

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" }
    }
}