Yup, you did:

$a=1;print$a-=$b+=$a*=-1,$/for 0..31
[download]

(After all 1346269 is an arbitrary stopping place.)