foreach my $ip_port (@{$data{$ip}}) {    # $ip_port = ["192.168.0.3","43035"];

    $sock = IO::Socket::INET->new(Proto => 'udp',
                                  PeerAddr => $ip_port->[0],
                                  PeerPort => $ip_port->[1]
                                 );

    $sock->send($in) or die "send: $!";

    print "Sent to $ip_port->[0]:$ip_port->[1]\n";

}