Select Code to Download

while(@xyz) {
   my @copy = splice(@xyz,0,10);
...
   @working = @$xyz_chunk;
   print "debug: @working\n";
}

foreach my $val (@xyz_chunk)
{
   threads->create("sub", $val);
}