Hi,

update: Actually tested the code and refined it a bit...
update2: Crafted a better perl solution, not calling perl in Perl...

Couldn't you just do something like:

 my ( @temp, %authors );
 @temp = sort map { my @b=split; $b[2]; } `ls -l`;
 foreach ( @temp )
 {
   $authors{$}=1 if not $authors{$_} and length $_;
 }
 print "$_\n" for keys %authors;'
[download]

IIRC, uniq is a standard unix command, which is also available under Solaris 7.

Greets,

-- JaWi

"A chicken is an egg's way of producing more eggs."