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

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

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

sleep 1 while $running;

my @versionOuput = $Qout->dequeue;