Select Code to Download

use strict;
use warnings;
...
    }
}
print join(", ", sort keys %hash), "\n";

defined(%hash) is deprecated at Z:\Data\Perl\PkgName.pl line 39 (#1)
    (D deprecated) defined() is not usually useful on hashes because i
+t
...
    is empty, just use if (%hash) { # not empty } for example.

        (Maybe you should just omit the defined()?)