Select Code to Download

Select or download this

    $obj->Method()->{key}->@[3,7];
    $obj->Method()->{lock}->@{"open","close"};

Select or download this

    @{$obj->Method()->{key}}[3,7];
    %{$obj->Method()->{lock}}{"open","close"};

Select or download this
```
    ${${$obj->Method()}{key}}[0];
```

Select or download this

    $obj->Method()->{key}->[0];
    $obj->Method(){key}[0];

Select or download this

    $obj->Method()->{key}->[1];    # One element.
    $obj->Method()->{key}->@[1,2]; # Two elements.

Select or download this

    $data->@{qw(this that other)}->>@[3,7]->>Method();

Select or download this

    my @ret;
    for( %{$data}{qw(this that other)} ) {
...
        }
    }
    return @ret;

Select or download this

    SavePartnSizes( $info->{Disks}->@->>{Partition}
        ->>@->>@{"Label","SizeMB"} );
...
        }
    }
    SavePartnSizes( @partns, @partnSize{@partns} );