Select Code to Download

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

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