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