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