$count = 3;
while ($count > 0) {
  print "Countdown is: $count\n";
  $count--;
}

$count = 1;
until ($count > 3) {
  print "Countup is: $count\n";
  $count++;
}

for ($count = 1 ; $count < 3 ; $count++) {
  print "My count is: $count\n";
}

@colors = ('red', 'blue', 'yellow');
foreach $color (@colors) {
    print "Color: $color\n";
}

$count = 6;
do {
  print "Countdown is: $count\n";
  $count--;
} while ($count > 3)