Select Code to Download

my @array = qw ( 1 2 3 4 5 );
my $num = 6;
...
   my ( @list, $single ) = @_;
   print @list;
}

123456

my @array = qw ( 1 2 3 4 5 );
my $num = 6;
...
   my ( $list, $single ) = @_;
   print @$list;
}

12345