Hi,

Of course! Your right! I should stop coding Perl from the head and use the interpreter instead. If I tested it first, I would have come to the following code:

...
@temp = sort map { ( split )[ 2 ]; } `ls -l /directory/pth/here`;
foreach( @temp )
{
  $authors{$_}=1 if not $authors{$_} and length $_;
}
...
[download]

Indeed, I made a little typo in my previous solution, $authors{$} had to be $authors{$_};

-- JaWi

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