use Parallel::ForkManager;
my $fm = Parallel::ForkManager->new(1);

##</code><code>##

foreach my $t (@times){
 $fm->start and next;

##</code><code>##

 print "what's the mem doing?\n";
 sleep(10);
 $fm->finish();
 }

$fm->wait_all_children();