sub someFunc {
   my %args = @_;
   my @arglist = qw{ client_number MM DD S };
   foreach (@arglist) {
      die "$_ not given" unless exists $args{$_};
   }

   # Now use $args{client_number} and $args{MM}
}