# Try to load the data late but mostly fail:
 $ tperl -e'threads->create(sub{})->join() for 1..100;my @x=(1..35_000)'
CPU 2.048 secs (CPU 1.204 secs)

# Note how easy it is to do it wrong and not share data but get the overhead:
 $ tperl -e'my @x=(1..35_000);share(@x);print "($x[0])\n";threads->create(sub{})->join() for 1..100'
Use of uninitialized value in concatenation (.) or string at -e line 1.
()
CPU 3.380 secs (CPU 2.128 secs)