use Data::Dumper;
use XML::Simple;
use Tie::IxHash;
my %xhash=();
my $line;
my $file= $ARGV[0];
tie (%xhash, 'Tie::IxHash');
my $simple = XML::Simple->new();
my $xhash   = $simple->XMLin($file);