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
}