my @a = ();
for(1..10)
{
  my $b = IO::Socket::INET -> new('127.0.0.1:1234') || next;
  push(@a, $b);
}