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

for my $count (1..5) {
    print "Hello world $count.\n";
}