use warnings;
use strict;

my %hash = undef;
use Data::Dumper;print Dumper \%hash;
__END__
Odd number of elements in hash assignment at - line 1.
Use of uninitialized value in list assignment at - line 1.
$VAR1 = {
          '' => undef
        };