Select Code to Download

print( "$_ ", join( ', ' => @{$hoa{$_}[0]} ), "\n" )
    for sort keys %hoa;

for my $key (sort keys %hoa) {
    print( "$key:$_ ", join( ', ' => @{$hoa{$key}[$_]} ), "\n" )
        for @{$hoa{$key}};
}