#!/usr/bin/perl

use strict;
use warnings;

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