my ( $a, $b, $c ) = (1, 1, 1);
( $a, $b, $c ) += 1;