getConfHash.pl

my $hash;
our %VALID_STRINGS;
require $ARGV[0];

while (my ($key, $value_ref) = each %VALID_STRINGS) {
  $hash .= "  \"$key\" => [\"$value_ref->[0]\"";
  shift($value_ref);
  foreach my $element (@$value_ref) {
    $hash .= ", \"$element\"";
  }
  $hash .= "],\n";
}
print $hash;