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