my $Qin = new Thread::Queue;
my $Qout = new Thread::Queue;

my @pool = map{ 
	threads->new( \&telnet2Cli, 'show version' )->detach 
} 1 .. 5;

my $running : shared = @pool;
$Qin->enqueue( @values );

sleep 1 while $running;

my @versionOuput = $Qout->dequeue;