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