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