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


##</code><code>##

use strict;
use warnings;

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

print "'$list'\n";