use Proc::Fork;
for my $val1 (@array1) {
	run_fork {
		child {
			open FILE, ">$val1.txt";
			print FILE "Output of step 1\n";
			close FILE;
		}
		parent {
			my $child_pid_outer = shift;
			waitpid $child_pid_outer, 0;

			# for my $val2 (@array2) {
			# 	run_fork {
			# 		child {
			# 			open FILE1, "$val1.txt";
			# 			open FILE2, ">$val2$val1.txt";
			# 			while (my $line = <FILE1>) {
			# 				$line =~ s/1/2/;
			# 				print FILE2 $line . "\n";
			# 			}
			# 			close FILE1;
			# 			close FILE2;
			# 		}
			# 		parent {
			# 			my $child_pid_inner = shift;
			# 			waitpid $child_pid_inner, 0;
			# 		} # Parent inner loop
			# 	}; # Inner fork
			# } # For loop

		} # Parent outer fork
	}; # Outer fork
}