SavePartnSizes( $info->{Disks}->@->>{Partition}
        ->>@->>@{"Label","SizeMB"} );
#vs.
    my( @partns, %partnSize );
    for my $disk ( @{$info->{Disks}} ) {
        for my $partn ( @{$disk->{Partition}}  ) {
            push @partns, $partn->{Label};
            $partnSize{$partn->{Label}}= $partn->{SizeMB};
        }
    }
    SavePartnSizes( @partns, @partnSize{@partns} );