Select Code to Download

# get list of every author
foreach $from (sort keys %authors) {
...
    ${$authors{$from}}{$buddy}++;
    }
}