You haven't wasted your time. You got some help, eh? And the people here are kinda gun-shy since we've been winged a couple times before.

Also, if you are actually offended at glib assumptions then you are far too thin-skinned to be walking around without your rose-colored glasses on. They were right not to help you if they didn't want and right to call you out on the spam question and you were right to call em rude for it. And there are indeed things you can't discuss here. =) Just mention getting a TCL script to talk to your Scheme code and then watch the fan get buried...

## tested now (had the sort backwards)
my %domain;
foreach my $address (@addresses) {
  my ($name, $host) = split(/\@/, $address);
  push @{$domain{$host}},$address
}
foreach my $host (sort { $#{$domain{$b}} <=> $#{$domain{$a}} } keys %d
+omain) {
  mailout(@{$domain{$host}});
}
[download]

--
$you = new YOU;
honk() if $you->love(perl)