$n=0;
@array=("one", "two", "three");


foreach $line (@array) {
#1
$pid=fork and next; 
&ret;
}

print "$a\n";


#2
print "Task done\n";

sub ret {
print "$line\n";
#3
$a="something\n";
exit();
}