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

&testsub ( @array, $num );

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