use XML::Twig;
use Data::Dumper;
my $twig=XML::Twig->new();
my $XMLRef = $twig->parsefile( 'new.xml' )->simplify(); 
print Dumper $XMLRef;