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"; }