I Have a file which looks like this:-

COMPUTER      DISTRIBUTION_ID    STATUS    </br>
30F-WKS     `1781183799.xxxx1'      IC---</br>
30F-WKS     `1781183799.xxx11'      IC---</br>
ADM34A3F9   `1781183799.41455'      IC---</br>
[download]

I want to remove duplicate entries for one single instance of COMPUTER column.

So the output file will look like this:-

COMPUTER      DISTRIBUTION_ID    STATUS</br>
30F-WKS     `1781183799.xxx11'      IC---</br>
ADM34A3F9   `1781183799.41455'      IC---</br>
[download]

I have used the following code:-

open(FILE2,">file1.txt")|| warn "Could not open\n";

open(FILE3,"file2.txt")|| warn "Could not open\n";

my $Previous = "";
my @data = <FILE3>;

    $index=0;
    foreach $_data (@data) 
    {
        $index++;
        chomp ($_data);
                @Current = split(/\t/, $_data);
        @Previous = split(/\t/, $Previous);
        if (@Current[0] ne @Previous[0])
        {
            if ($index == 1)
            {    
                # do nothing.    
            }
            else
            {
                print FILE2 $Previous;
            }

        }

                else {} 

        $Previous = $_data;
                 
        }

close(FILE2);
close(FILE3);
[download]

However the duplicates are not getting removed. please help me with the correct code

UPDATE - I NEED THE FINAL ENTRY FOR A DUPLICATE ENTRY