Select Code to Download

push( @device_thread, 
    threads->new(
        \&thread_job( $key, $device_ip{$key}, $index )
)->join ) ;

push( @device_thread, 
    threads->new(
...
...

$__>join for @threads;