perl -E "say$x*=$_ for++$x..3,0,1,-1"
1
2
6
0  # must be 1
0  # too
0  # must be undef or Error