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

# loop i from 1 to 40
for my $i (1 .. 40)
{
  print "$i\n";
}