sub foo(\%\@)
{
   my ($hash_ref, $array_ref) = @_;
   #...
}

foo (%hash, @array);