Using my previous definition for $nested:

for my $service (@{$nested->{'Service'}}) {
    for my $suppliers (@{$service->{'Suppliers'}}) {
        for my $hw (@{$suppliers->{'HW'}}) {
            print "Type: $hw->{'Type'}\n";
            print "Nr: $hw->{'Nr'}\n";
        }
    }
}
[download]