my %hash_addresses;
foreach my $address (@all_addresses)
{
    $hash_addresses{$address}++;
}
foreach my $address (sort { $hash_addresses{$b} <=> $hash_addresses{$a} } (keys %hash_addresses))
{
    send_mail ($address);
}