foreach my $name (sort keys %hash) {
    print join (', ', $name, sort @{ $hash{$name} }), "\n";
}