my ( @temp, %authors );
@temp = sort map { my @b=split; $b[2]; } `ls -l /path/to/authors`;

##</code><code>##

foreach ( @temp )
{
  $authors{$}=1 if not $authors{$_} and length $_;
}

##</code><code>##

print "$_\n" for keys %authors;