#Format: exists $ASSOC_ARRAY{KEY}

#!/usr/bin/perl
%employees=("Tester" => "Joe",
            "Coder" => "Teddy",
            "Clerk" => "Tom",
           );
print "exists.\n" if exists $employees{"Tester"};
print "The Clerk exists.\n" if exists $employees{"Clerk"};
print "The Boss does not exist.\n" if not exists $employees{"Boss"};