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