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


in reply to Re: Fetching unique owner name
in thread Fetching unique owner name

HOw would this work? Am I in the right direction?? 
         @temp = '/mydirectory/directory';
         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]

In Section Seekers of Perl Wisdom