#!/usr/bin/perl

use strict;
use warnings;

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

my $list = @list;

print @list, "\n";
print $list, "\n";

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

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

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

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