for my $auth (sort { $hash{$b}{count} <=> $hash{$a}{count} } keys %hash) {
        print FILE "$hash{$auth}{fname} $hash{$auth}{lname}: $hash{$auth}{count}\n";
    }