Select Code to Download

my %connecting = map { $_ => 1 } @hosts;
while (1) {
...
  last unless %connecting; 
  select (undef, undef, undef, 0.05);
}