$a = undef;

%H = ( 'x' => 'y', 'y' => $a, 'z' => 'a' );
for (1..10000) { print "FOO\n" if $H{x} ne 'y'; }