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