while (<PARMFILE>) {
  next if /^#/ || /^\s*$/;
  chomp;
  my @temp=split(/\s+/,$_);
  $dbparms{$temp[2]} = \@temp;
}

##</code><code>##

 
while (<PARMFILE>) {
  next if /^#/ || /^\s*$/;
  chomp;
  @temp=split(/\s+/,$_);
  $dbparms{$temp[2]} = [@temp];
}