#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $data = [
    'soapenv:Envelope',
    { 'xmlns:soapenv' => 'http://schemas.xmlsoap.org/soap/envelope/' },
    [
        [
            'soapenv:Body',
            {},
            [
                [
                    'ns2:CheckForSoftwareUpdatesResponse',
                    { 'xmlns' => 'http://www.w3.org/2000/09/xmldsig#' },
                    [
                        [
                            'ns2:InstalledSoftware',
                            {},
                            [
                                [ 'ns2:SoftwareName', {}, 'SampleSoftware1', undef, 'SampleSoftware1', '{http://192.168.0.214/api/1.1}InstalledSoftware', {} ],
                                [
                                    'ns2:File',
                                    {},
                                    [
                                        [
                                            'ns2:UpdateURL', {}, 'https://192.168.0.214/downloads/testfile.zip',
                                            undef,
                                            'https://192.168.0.214/downloads/testfile.zip',
                                            '{http://192.168.0.214/api/1.1}UpdateURL', {}
                                        ]
                                    ]
                                ]
                            ]
                        ]
                    ]
                ]
            ]
        ]
    ]
];

my $wanted = $data->[2]->[0]->[2]->[0]->[2]->[0]->[2]->[1]->[2]->[0]->[2];

print Dumper($wanted);