my $var1;
my $var2 = foo();
print ( exists $var2->{'$var1'} ? "ok " : "not ok ", "1\n");
print (!exists $var2->{'$var2'} ? "ok " : "not ok ", "2\n");
print (!exists $var2->{'$nono'} ? "ok " : "not ok ", "3\n");