for $i ( 0 .. $#AoA_first ) 
{
    $row_first = $AoA_first[$i];
    $row_second = $AoA_second[$i];
    open TEMP, ">TMPFILES/$i.tmpfile";
    for $j ( 0 .. $#{$row_first} ) 
    {
        print TEMP "$row_first->[$j]\t$row_second->[$j]\n";
    }
    close TEMP;
    }
}