use warnings;
use strict;

my $n = 9;
my $listRef = [(1..$n)]; # Assign array reference
my @list = (1..$n); # Assign to an array