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