print $a = 1, 0+$a, $a = 2, 0+$a, $a = 3, 0+$a; # prints "313233"