use strict;
use warnings;

my $i = 0;

print "while\n";
while ($i < 5) {
    print $i, "\n";
    $i++;
}


print "for\n";
for (my $i = 0; $i < 5; $i++) {
    print "$i\n";
}

print "foreach\n";
foreach my $i (0 .. 4) {
    print "$i\n";
}