$ perl test-tab1.pl test-tabd* test-tabdata.txt test-tabdata2.txt test-tabdata2.txt~ A 12 33 9 B 152 221 333 C 123 423 444 D 456 43 555 E 99