Don't be too angry with people that get tonns of spam every single day and don't want every 13-year-old-highschool-scriptkiddy being able to send tonns of mail WITH their help. I (and nobody else) had doubt that there exist good reasons for sending huge amounts of mail.. So here's a solution that should be kinda efficent:

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);
}
[download]

You will have to write the &send_mail routine by yourself :)
Regards, octo

--
GED/CC d-- s:- a--- C++(+++) UL+++ P++++$ L++>++++ E--- W+++@ N o? K? w-- O- M-(+) V? !PS !PE !Y PGP+(++) t-- 5 X+ R+(+++) tv+(++) b++@ DI+() D+ G++ e->+++ h!++ r+(++) y+