open(PARMFILE, "< $parmfile")
  or die "unsuccessful open of input file $parmfile";
while (<PARMFILE>) {
  next if /^#/ || /^\s*$/;
  chomp;
  my @temp=split(/\s+/,$_);     # Note the 'my'
  $dbparms{$temp[2]} = \@temp;
}
close PARMFILE;

foreach $item (sort keys %dbparms) {
  print "$item => $dbparms{$item} \n";
}


##</code><code>##

foreach $item (sort keys %dbparms) {
  $" = ',';
  print "$item => @{$dbparms{$item}} \n";
}