#for instance you have

 # Manage the thread pool until signalled to terminate
    while (! $TERM) {
    my $t;
    undef @Data;
#################################
# and
undef @Data; # Clear the shared array so that it can be used a
+gain for the next for target