for (keys %hash) {
    print "$_ = ", join(", ", sort @{$hash{$_}}), "\n";
}