foreach my $x (@array1) {
			foreach my $y (@$x) {
				print $fout1 $y,"\n";
				}
			}