#!/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; }