Perl arrays are zero-based. When you split to @array the third column will actually end up in $array. So you may want to review your indexes in the if test to see if you are matching the right columns.
in reply to Comparing two text files
Also, contrary to your explanation, the fields of A.txt actually end up in @text and the fields of B.txt end up in @textpac.
A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James
My blog: Imperial Deltronics