use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple(KeyAttr=>('response3'),ForceArray=>('response3'));
$data = $xml->XMLin("c:\\b.xml") or die $_;
print Dumper($data);
print"\nStartPrinting First Statement";
print "Data=$data->{'soap'}->{'Response1'}->{'response2'}->{'response3'}->[0]->{'tag1'}";