$xml = new XML::Simple;

$data1 = $xml->XMLin("sample.xml");

print Dumper($data1); 

##</code><code>##

open FH5, ">>tagfile1" or die "error in reading..debug 1";
print FH5 Dumper($data1) or die $!;