#!/usr/bin/env perl

use strict;
use warnings;
use autodie;
use constant NAME => 1;

my $infile = 'test_in.csv';
my $outfile = 'test_out.csv';

use Text::CSV;

my %seen;

{
    my $csv = Text::CSV::->new({
        binary => 1, sep_char => "\t", quote_char => undef,
    });
    open my $fh_in, '<:encoding(UTF-8)', $infile;
    open my $fh_out, '>:encoding(UTF-8)', $outfile;
    (undef) = scalar <$fh_in>; # skip & discard header record

    while (my $row = $csv->getline($fh_in)) {
        $csv->say($fh_out, $row) unless $seen{$row->[NAME]}++;
    }
}