perl -e 'while (++$i) { $foo[$i] = $i; }'