#!/usr/bin/perl

use strict;
use warnings;

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

my $list = @list;

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