mysub(%hash);

  sub mysub {
    my (%params) = @_;
  }

##</code><code>##

  mysub(\%hash);

  sub mysub {
    my $params = shift;
    my %paramhash = %$params;
  }