print FILELOG "File1\tFile2\tSignal\n";
for ($i=1;$i<scalar(@file_and_signals1);$i++){
	for ($j=1;$j<scalar(@file_and_signals2);$j++){
		if ($file_and_signals1[$i] eq $file_and_signals2[$j]) {
			print FILELOG "$file_and_signals1[0]\t$file_and_signals2
[0]\t$file_and_signals1[$i]\n";
		}
		for ($k=1;$k<scalar(@file_and_signals3);$k++){
			if ($file_and_signals1[$i] eq $file_and_signals3[$k]) {
				print FILELOG "$file_and_signals1[0]\t
$file_and_signals3[0]\t$file_and_signals1[$i]\n";
			}
			if ($file_and_signals2[$j] eq $file_and_signals3[$k]) {
				print FILELOG "$file_and_signals2[0]\t
$file_and_signals3[0]\t$file_and_signals2[$j]\n";
			}
			for ($l=1;$l<scalar(@file_and_signals4);$l++){
				if ($file_and_signals1[$i] eq $file_and_signals4
[$l]) {
					print FILELOG "$file_and_signals1[0]\t
$file_and_signals4[0]\t$file_and_signals1[$i]\n";
				}
				if ($file_and_signals2[$j] eq $file_and_signals4
[$l]) {
					print FILELOG "$file_and_signals2[0]\t
$file_and_signals4[0]\t$file_and_signals2[$j]\n";
				}
				if ($file_and_signals3[$k] eq $file_and_signals4
[$l]) {
					print FILELOG "$file_and_signals3[0]\t
$file_and_signals4[0]\t$file_and_signals3[$k]\n";
				}
				for ($n=1;$n<scalar(@file_and_signals5);$n++){
					if ($file_and_signals1[$i] eq
$file_and_signals5[$n]) {
						print FILELOG "$file_and_signals1[0]\t
$file_and_signals5[0]\t$file_and_signals1[$i]\n";
					}
					if ($file_and_signals2[$j] eq
$file_and_signals5[$n]) {
						print FILELOG "$file_and_signals2[0]\t
$file_and_signals5[0]\t$file_and_signals2[$j]\n";
					}
					if ($file_and_signals3[$k] eq
$file_and_signals5[$n]) {
						print FILELOG "$file_and_signals3[0]\t
$file_and_signals4[0]\t$file_and_signals3[$k]\n";
					}
					if ($file_and_signals4[$l] eq
$file_and_signals5[$n]) {
						print FILELOG "$file_and_signals4[0]\t
$file_and_signals5[0]\t$file_and_signals4[$l]\n";
					}
					for ($o=1;$o<scalar(@file_and_signals6);$o+
+){
						if ($file_and_signals1[$i] eq
$file_and_signals6[$o]) {
							print FILELOG "$file_and_signals1
[0]\t$file_and_signals6[0]\t$file_and_signals1[$i]\n";
						}
						if ($file_and_signals2[$j] eq
$file_and_signals6[$o]) {
							print FILELOG "$file_and_signals2
[0]\t$file_and_signals6[0]\t$file_and_signals2[$j]\n";
						}
						if ($file_and_signals3[$k] eq
$file_and_signals6[$o]) {
					  	print FILELOG "$file_and_signals3[0]\t
$file_and_signals6[0]\t$file_and_signals3[$k]\n";
			  		}
						if ($file_and_signals4[$l] eq
$file_and_signals6[$o]) {
							print FILELOG "$file_and_signals4
[0]\t$file_and_signals6[0]\t$file_and_signals4[$l]\n";
						}
						if ($file_and_signals5[$n] eq
$file_and_signals6[$o]) {
							print FILELOG "$file_and_signals5
[0]\t$file_and_signals6[0]\t$file_and_signals5[$n]\n";
						}
						for ($r=1;$r<scalar
(@file_and_signals7);$r++){
							if ($file_and_signals1[$i] eq
$file_and_signals7[$r]) {
								print FILELOG
"$file_and_signals1[0]\t$file_and_signals7[0]\t$file_and_signals1[$i]\n";
							}
							if ($file_and_signals2[$j] eq
$file_and_signals7[$r]) {
								print FILELOG
"$file_and_signals2[0]\t$file_and_signals7[0]\t$file_and_signals2[$j]\n";
							}
							if ($file_and_signals3[$k] eq
$file_and_signals7[$r]) {
								print FILELOG
"$file_and_signals3[0]\t$file_and_signals7[0]\t$file_and_signals3[$k]\n";
							}
							if ($file_and_signals4[$l] eq
$file_and_signals7[$r]) {
								print FILELOG
"$file_and_signals4[0]\t$file_and_signals7[0]\t$file_and_signals4[$l]\n";
							}
							if ($file_and_signals5[$n] eq
$file_and_signals7[$r]) {
					 			print FILELOG
"$file_and_signals5[0]\t$file_and_signals7[0]\t$file_and_signals5[$n]\n";
							}
							if ($file_and_signals6[$o] eq
$file_and_signals7[$r]) {
								print FILELOG
"$file_and_signals6[0]\t$file_and_signals7[0]\t$file_and_signals6[$o]\n";
							}
							for ($t=1;$t<scalar
(@file_and_signals8);$t++){
								if ($file_and_signals1[$i]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals1[0]\t$file_and_signals8[0]\t$file_and_signals1[$i]\n";
								}
								if ($file_and_signals2[$j]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals2[0]\t$file_and_signals8[0]\t$file_and_signals2[$j]\n";
								}
								if ($file_and_signals3[$k]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals3[0]\t$file_and_signals8[0]\t$file_and_signals3[$k]\n";
								}
								if ($file_and_signals4[$l]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals4[0]\t$file_and_signals8[0]\t$file_and_signals4[$l]\n";
								}
								if ($file_and_signals5[$n]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals5[0]\t$file_and_signals8[0]\t$file_and_signals5[$n]\n";
								}
								if ($file_and_signals6[$o]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals6[0]\t$file_and_signals8[0]\t$file_and_signals6[$o]\n";
								}
								if ($file_and_signals7[$r]
eq $file_and_signals8[$t]) {
									print FILELOG
"$file_and_signals7[0]\t$file_and_signals8[0]\t$file_and_signals7[$r]\n";
								}
								for ($u=1;$u<scalar
(@file_and_signals9);$u++){
									if
($file_and_signals1[$i] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals1[0]\t$file_and_signals9[0]\t$file_and_signals1[$i]\n";
									}
									if
($file_and_signals2[$j] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals2[0]\t$file_and_signals9[0]\t$file_and_signals2[$j]\n";
									}
									if
($file_and_signals3[$k] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals3[0]\t$file_and_signals9[0]\t$file_and_signals3[$k]\n";
									}
									if
($file_and_signals4[$l] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals4[0]\t$file_and_signals9[0]\t$file_and_signals4[$l]\n";
									}
									if
($file_and_signals5[$n] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals5[0]\t$file_and_signals9[0]\t$file_and_signals5[$n]\n";
									}
									if
($file_and_signals6[$o] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals6[0]\t$file_and_signals9[0]\t$file_and_signals6[$o]\n";
									}
									if
($file_and_signals7[$r] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals7[0]\t$file_and_signals9[0]\t$file_and_signals7[$r]\n";
									}
									if
($file_and_signals8[$t] eq $file_and_signals9[$u]) {
										print FILELOG
"$file_and_signals8[0]\t$file_and_signals9[0]\t$file_and_signals8[$t]\n";
									}
								}
							}
						}
					}
				}
			}
		}
	}
}