Select Code to Download

$VAR1 = {
          'soap' => {
...
                       },
          'xmlns:soap' => 'http://schemas.xmlsoap.org/soap/envelope/'
        };

use XML::Simple;
use Data::Dumper;
...
print Dumper($data);
print"\nStartPrinting First Statement";
print "Data=$data->{'soap'}->{'Response1'}->{'response2'}->{'response3
+'}->[0]->{'tag1'}";