Created by www.tryperl.com.

empty_hash.pl.pl

#Created by tryperl.com
use strict;
use warnings;
use Carp qw(croak);
use Data::Dumper;

my $data = {};

#croak '111'.Dumper $data;
print length keys %$data;  # length keys is the number of characters in "0"... you want scalar keys %$...

die;

unless ($data) { # references are always true
    croak "1";
} else {
    croak "2";
}