for my $j (0...Nlines-1){
open(OUT, ">", "./var1.dat")
print OUT "$line_number \t $var1{file1}[$i] \t $var1{file2}[$i] \t ... $var1{fileN}[$i]\n"
}
close OUT;