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