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

...

$__>join for @threads;