#!/usr/bin/perl
my %h;
%{$h{x}};
use Data::Dumper;
print Dumper \%h;