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> ) {
    line_in =~ m/^([^\t]*)(?:[^\|]*\|){3}([^\|]*)/;
    unless($name eq $1) {
        %id_list = ();
        $name = $1;
    }
    next if $id_list{$2}++;
    print OUT "$line_in";
}