Select Code to Download

...
my %hash;
...
    my $code = ...
    push @{ $hash{$name} }, $code;
}

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