...
my %hash;
while (<IN>) {
    my $name = ...
    my $code = ...
    push @{ $hash{$name} }, $code;
}

##</code><code>##

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