This line: print "$k $_ $cols3\n"; what do you expect $_ to be? And always post expected and actual results.