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

##</code><code>##

    ( $x )= $z;
    ( $x, $y )= ( $z );
    @array= $z;  # sorry, I think this has to remain unwarned
    @array[1]= $z;  # but already has its own warning
    @array[1,2]= ( $z );
    @hash{qw(a,b)}= ( $z );
    @hash{@array}= ( $z ) x @array;