#!/usr/bin/perl

my $h = "hello";
my $w = "world";

for (my $i = 0; $i < 3; $i++) {
  print "$h $w \n";
}

my $n = 0;
my $x = 100000000;

for (my $i = 0; $i < $x; $i++) {
  $n++;
}

print "\n";
print "Counted to $n \n";