( $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;