#!/usr/bin/perl -w
my %hash = ();
%hash or print "empty hash is false\n";

my $hash = {};
print "empty hash ref is true\n" if $hash ;