our $T //= 4;

##</code><code>##

my @threads = map{
    threads->new( \&worker, $filename, $target, $chunks[ $_ ], $chunks
+[ $_+1 ] )
} 0 .. $T-1;


##</code><code>##

my $total = 0;
$total += $_->join for @threads;