% perl -le '$i=0;$arr[$i++]=$i++;print $arr[1]'
0

ますますわけわかめ