Select Code to Download

#!/usr/bin/env perl -l

...
for (sort { @$b <=> @$a } map { [ sort keys %$_ ] } @{$sets{data}}) {
    print join ',' => @$_;
}

e,f,g
a,b
...
d
h
i

[
    { a => 2, b => 2 },
...
    { h => 1 },
    { i => 1 },
]

{
    a => $sets{data}[0],
...
    h => $sets{data}[4],
    i => $sets{data}[5],
}

sort { @$b <=> @$a }

sort keys %$_