for (my $i = 0; $i < $#file; $i++) {
    print FILE "$file[$i] $file2[$i] $file3[$i]\n";
}