Select Code to Download

my %hash;
while (<DATA>) {
...
foreach my $key (keys %hash) {
    print "The $key is: ", join(', ', @{$hash{$key}}), "\n";
}

use Set::Scalar;

...
          join("\n\t", $hash{$key}->members()),
          "\n";
}