In Perl, as There Is More Than One Way To Do It, foreach is often (er, almost always) used in lieu of a regular for loop. Added to the fact that the "each" can be omitted and combined with the .. operator, this allows for really short friendly loops, such as the following:
$FACTORIAL = 5;
$answer = 1;
for (1 .. $FACTORIAL) {
$answer *= $_;
}
print "The answer is $answer.\n";
The only disadvantage to doing this is that you'll probably attempt to do it the same way in another language at some point.