Select Code to Download

my (%authors, %subjects);
# and populate these hashes somehow

...
   $authors{$from}->{$buddy}++
      for my $buddy map { split /\t/ } values %subjects;
}