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

my %hash;
$hash{key1} = "";

# this produces no warning
if ($hash{key1} eq "") { # true
  print "key1 empty!\n";
}

# this produces a warning
if ($hash{key2} eq "") { # true
  print "key2 empty!\n";
}