sub my_sub (\@$)
  {
    my $array = shift;
    my $scalar = shift;

    # $array is a reference to the array
    # $scalar is the next argument
  }

my_sub @array, "scalar";