Help for this page
join( ', ' => map { $_, @{ $hash{$key}{$_} } } keys $hash{$key} ), +$/;
join( ', ' => map { $_, @{ $hash{$key}{$_} } } keys %{ $hash{$key} +} ), $/;