#!/usr/bin/perl -w
use strict;
use warnings;

our %foo;
@foo{'foo','baz'} = ();
for my $key ('foo','bar','baz') {
   print "key $key ",
         (\undef == \delete $foo{$key} ? "didn't exist" : "existed"),
         "\n";
}