sub foo (\%$);

foo (%hash, $arg);

sub foo (\%$)
{
    my $hash_ref = shift;
    my $passed_arg = shift;

    my $passed_hash = %$hash_ref;

    # do stuff
}