Select Code to Download

    ( $x, $y )= $z;
    @array[1,2]= $z;
    @hash{qw(a,b)}= $z;
    @hash{@array}= $z x @array; # unless 1==@array

    ( $x )= $z;
    ( $x, $y )= ( $z );
...
    @array[1,2]= ( $z );
    @hash{qw(a,b)}= ( $z );
    @hash{@array}= ( $z ) x @array;