mysub(%hash);
sub mysub {
  my %args=@_;
  print $args{somekey},"\n";
  ...
}