for my $key (reverse sort keys %hash) {

    print "Level $key:\n", join(", ", @{$hash{$key}}), "\n\n";

}