sub abc {
  my %param = @_;
  for my $required qw( banana nut ) {
    die "missing: $required" unless defined $param{$required};
  }
  # etc
}