my (%hash);
#my (%hash) = ( foo => 'bar' ); # Try this variation
my (@keyarr)=(keys (%hash));

print "keys: '@keyarr'\n";      # Add this line

if (defined ($hash{$keyarr[0]}))
{print "hash is defined\n";}

else
{print "hash is undefined\n";}