my( $x, $y ) = ( $a, $a );