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