Re: Format a Dumper module output file.

[choroba]

The comments should explain what's going on:

my %subkeys;

# The keys of %subkeys are the subkeys, i.e. GID, AIG, TEA in this cas
+e.
undef @subkeys{map keys %{ $VAR1->{$_} },keys %$VAR1};

# For each subkey, go through the hash and pick up the corresponding v
+alue.
for my $subkey (sort keys %subkeys) {
    print +($subkey,
            join "\t", q(),
            map $VAR1->{$_}{$subkey},
                sort { $a <=> $b } keys %$VAR1),
          "\n";
}