Select Code to Download

$ cat test_in.csv
id  name
...
899 peter
87  helen
961 Anonymous Monk

$ cat -vet test_in.csv
id^Iname$
...
899^Ipeter$
87^Ihelen$
961^IAnonymous Monk$

#!/usr/bin/env perl

...
        $csv->say($fh_out, $row) unless $seen{$row->[NAME]}++;
    }
}

$ cat test_out.csv
123 john
11  peter
87  helen
961 Anonymous Monk

$ cat -vet test_out.csv
123^Ijohn$
11^Ipeter$
87^Ihelen$
961^IAnonymous Monk$