use strict;
use warnings;
use feature 'say';

# foreach over a range
my $sum = 0;
foreach my $n (1 .. 5) {
    $sum += $n;
}
say "sum $sum";

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

# while loop
my $count = 3;
while ($count > 0) {
    print "$count ";
    $count--;
}
print "\n";

foreach, C-style for, while, 1..5