open my $TEMP, ">", "TMPFILES/$i.tmpfile" or die "cannot open output file $!";
for $i ( 0 .. $#AoA_first ) {
     print $TEMP "$row_first->[$i]\t$row_second->[$i]\n";
}
close $TEMP;