use constant WISCONSIN => "WI";
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";
}