http://www.perlmonks.org?node_id=458534


in reply to difficulty in multi sorting

texuser74,
you probably want to get the data into some structure before processing it. So why don't you read through your file and 'feed' a Hash of Array in a way like: 
...
my %hash;
while (<IN>) {
    my $name = ...
    my $code = ...
    push @{ $hash{$name} }, $code;
}

[download]
Then you can loop through the sorted hash keys and print the name together with all it's (sorted) codes. 
foreach my $name (sort keys %hash) {
    print join (', ', $name, sort @{ $hash{$name} }), "\n";
}

[download]
That's some sort of pseudo code, so it will not work as is. .. ;)

pelagic

In Section Seekers of Perl Wisdom