my @array = qw ( 1 2 3 4 5 );
my $num = 6;

&testsub ( \@array, $num );

sub testsub {
   my ( $list, $single ) = @_;
   print @$list;
}