threads use strict; use warnings; use threads; my $thr1 = threads->create(\&sub1,"yasai","kudamono"); my $thr2 = threads->create(\&sub1,"daikon","apple"); my @ReturnData1 = $thr1->join(); my @ReturnData2 = $thr2->join(); print("thread 1 re…