$ tperl -e'my @x=(1..35_000);threads->create(sub{for(@x){my$y=$_}})->join() for 1..100' CPU 4.324 secs $ tperl -e'my @x;share(@x);@x=(1..35_000);threads->create(sub{for(@x){my$y=$_}})->join() for 1..100' CPU 17.281 secs