#! /usr/bin/perl

#  naive - illustrate naive code with repeated code blocks
#        Lines 9..5 and 19..23 are functionally identical 

use strict;
use warnings;

my $number = 0;

for (1..4) {
    $number++;
}

print "Number is $number\n";

$number = 0;

for (3..7) {
    $number++;
}

print "Number is $number\n";

#  End naive