Select Code to Download

#!/usr/bin/perl

...

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

#!/usr/bin/perl

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

#!/usr/bin/perl

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