use strict;
use warnings;

my %hash = (
 foo => undef,
);

print exists($hash{foo})."\n";
print defined($hash{foo})."\n";
print exists($hash{bar})."\n";
print defined($hash{bar})."\n";