my( $a, $b, $c ) = ( 1, 2, 3);
$a = $b = $c = 1;
print "$a$b$c";