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