If you need to compare a hash against a (empty) hash ;)

#!/usr/bin/perl 
use strict;
use warnings;
use Data::Compare;


my %h1 = ( 1 => 'boo', 2 => 'bar', 3 => 'baz' );

my $c = new Data::Compare( \%h1, {} );
print '%h1 is ', $c->Cmp ? '' : 'not ', "empty.\n";
[download]

hth,
PooLpi