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

my %hash = undef; 
print Dumper \%hash; 

#Output 

$VAR1 = {
          '' => undef
        };