use constant WI => "WISCONSIN";
use constant ILLINOIS => "IL";

my %capitol_map = (
    WISCONSIN => "Madison",
    ILLINOIS  => "Springfield",
);

my $abbrev = WI;

if ( exists $capitol_map{$abbrev} ) {
    print "capitol = $capitol_map{$abbrev}\n";
}
else { print "False" }