for(my $i = 0; $i < $total_lines_in_each_file; $i++){ print(OUTPUT "$TextString[$i]\t$su_first[$i]\t$su_second[$i]\t$su_third[$i]\t$su_average\t$mu_first[$i]\t$mu_second[$i]\t$mu_third[$i]\t$mu_average \n"); }