- or download this
my %HoHoA = (
'set1' => {
...
# length of 2nd keys = 4 (all the same in 'set4')
);
- or download this
set2 # Length 3
set3 # Length 3
set4 # Length 4
set1 # Length 7
- or download this
foreach my $set ( sort {#???} keys %HoHoA )
{
print "$set\n";
}