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

[C!klodoL]

всем привет, нужна помощь в таком вот вопросе, нужно создать несколько сокетов, по типу: $socket, $socket2 и так далее, конечно их можно написать так:
$socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp")
$socket2 = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp")
Но так код будет выглядеть не красиво, вопрос - как сразу создать несколько сокетов?

[nerezus]

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

[KSURi]

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