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