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

##</code><code>##

perl -e 'fork; fork; while (++$i) { $c .= crypt($i,$i); $c = substr($c,4,128); }