. . .

sub new {
  my $class  = shift ;
  my %args = @_ ;

. . .

  my %localparms ;
  @localparms{@myParmNames} =
    delete @args{@myParmNames} ;

. . .

  while (my ($parm,$value) = each %localparms) {
    $ldap->{"net_ldap_express_$parm"} = $value ;
  }
  return $ldap ;