my @m_ports = (1111,2222,3333,4444);
my @in_sockets;
for (@m_ports) {
    my $in_sock = IO::Socket::Multicast->new(Proto=>'udp',LocalPort=>$_);
    push @in_sockets, $in_sock if $in_sock;
}