создать несколько сокетов (Perl)

всем привет, нужна помощь в таком вот вопросе, нужно создать несколько сокетов, по типу: $socket, $socket2 и так далее, конечно их можно написать так:

Code:

$socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp")
$socket2 = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp")

Но так код будет выглядеть не красиво, вопрос - как сразу создать несколько сокетов?

 

про циклы и массивы/списки слышал?

 

Code:

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