my $thr = threads->create(\&sub1, 100 ); # scalar
my ($thr) = threads->create(\&sub1, 100 ); # list