perl -e 'foreach($i = 0; $i < 10; $i++) { print "$i\n"; }'
perl -e 'for($i = 0; $i < 10; $i++) { print "$i\n"; }'