Select Code to Download

file1:
TST_01  sp|123|fts
...
TST_01  sp|123|fts  checked_proved
TST_02  sp|3438|rvs  proven_right
TST_03  sp|2744|rtp  un_proved

#!/usr/bin/perl
open(FH1,file1.txt);
...
  @grepped= grep ("$second",@array);
  print "$first\t@grepped\n";
}