#!/usr/bin/perl

use strict;
use warnings;

$. = 1;
my $n = 9;
my $list = (1..$n);