i'm not sure to understand you, if you mean "i whant to pass both a scalar and an array argument" you could pass a scalar and an array reference as in

mysub($scalar, \@array); #or [@array] if you need a copy of it
sub mysub {
  my @params = @_;
  my @array_arg;
  for(@params) {
    if(ref($_) eq 'ARRAY') {
    @array_arg = @{$_};    
    }
  }
  ## do other stuff
}
[download]