use strict;
use warnings;


my $name = '';
my %id_list;

open (STDIN,"perl first_program.pl|") || die "$!";
open (OUT, ">", "out.txt") || die "$!";

while(my $line_in =<STDIN>){
  chomp($line_in);
  my @line_array = split(/\t/,$line_in);
  my @subline_array = split(/\|/, $line_array[1]);

  unless ($name eq $line_array[0]) {
    %id_list = ();
    $name = $line_array[0];  
  }
  next if $id_list{$subline_array[3]}++;
  print OUT "$line_in\n";
}