foreach my $host (sort { $frequency{$b} <=> $frequency{$a} } keys %frequency) {
  push @recipients, @$host;
}