foreach my $fn (@clients) { 
      open my $fh, ">&=$fn" or warn $! and die;
       print $fh  "keepalive\n"  
  }