Format: delete $ASSOC_ARRAY{KEY}

#!/usr/bin/perl
%employees=(
            "Tester" => "Joe",
            "Coder" => "Teddy",
            "Clerk" => "Tom",
           );
$layoff=delete $employees{"Colder"};
print "We had to let $layoff go.\n";

while(($key, $value)=each(%employees)){
    print "$key: $value\n";
}