$a = $b = $c = 1; 
print $a++, " ", $a++, "\n";
print $b++, " ", $b, "\n";
print $c, " ", $c++, "\n";