#!/usr/bin/perl

foreach $i (1..10) {
  print($i);
}