#! perl -slw
use strict;
use threads qw[ async ];
use Thread::Queue;

my @dnss = qw(
	111.111.111.111
	222.222.222.222
	111.222.111.222
	222.111.222.111
);

my $Q = new Thread::Queue;
my $host = $ARGV[ 0 ];

my $count : shared = @dnss;
async{ 
	$Q->enqueue( qx[ nslookup -type=A $host $_ 2>nul ] );
	$count--;
} for @dnss;

sleep 1 while $count; 
## Do something with results
print $Q->dequeue while $Q->pending;