Hash Perl

#!/usr/bin/perl -w
use strict;
my %where = (
     A => "AA",
     B => "BB",
     C => "CC",
     D => "DD"
);
print "A!\n"  if exists $where{A};