$ perl test.pl *.txt
$VAR1 = [
          'ID157	TSR11',
          'ID121	ABC14',
          'ID122	EFG87'
        ];