#!/usr/bin/perl
use warnings;
use strict;

my $n = 0;

print "With a while loop:\n";
while (++$n < 4) { 
   print "Hello $n \n"; 
}

print "With a foreach loop:\n";
foreach my $n (1..3) { 
  print "Hello $n \n"; 
}

print "With a bare block and redo: \n";
$n = 1; { 
   print "Hello $n \n";
   last if (++$n > 3); 
   redo; 
}