You should pass reference to hash:

whatever(\%list,$val);
...
sub whatever
{
  my %hash = %{$_[0]};
  # my $hash_ref = $_[0];
  my $val  = $_[1];
  ...
}
[download]

perlsub manual.