for (0+($i=3), 0+($i=2), $i=1) { print "$_ and $i\n"; }