#!/usr/bin/perl -w

my (%hash);
my (@keyarr)=(keys (%hash));

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

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