# Mundane C style "for" loop
for ($i = 0; $i < 100; $i++)
{
   print "$i\n";
}

##</code><code>##

# Perl style "for" loop
print "$_\n" for 0..99;

# or this
map { print "$_\n" } 0..99;