use Parallel::ForkManager;
@values = (0, 0);
my $pm=new Parallel::ForkManager(2);
foreach $value (@values) {
    $pm->start and next;
    print"$value";
    $value = 1;
    print"$value";  
    $pm->finish;
};
$pm->wait_all_children;
foreach $value (@values) {
    print"$value";
};