test for non empty hash

test_hash.pl

#!/usr/bin/perl -w --

use strict;
use Benchmark;

my %hash;

for (1..1e6) {
	my $key = join($_, "*" x (10*rand), "*" x (10*rand));

	$hash{$key} = "*" x (100*rand);
}
timethese( 1e4, {
	'scalar_keys'	=> sub { if (scalar(keys %hash)) { "OK" } },
	'scalar'	=> sub { if (scalar(%hash))      { "OK" } },
	'just_if'	=> sub { if (%hash)              { "OK" } },
} );

__END__