my @sems = map{ my $var :shared; \$var } 0 .. $T;