#!/usr/bin/perl -w
use strict;
use warnings;

open (my $FILE1, '<', "quote1.csv") or die "cannot open file1 $!\n";

open (my $FILE2, '>', "quoteremoved.csv") or die "cannot open file3 $!\n";

my %custom;
while (my $line=<$FILE1>){
    chomp $line;
    my @columns=split(/\t/,$line);
    my $Uni=$columns[2];
    $Uni=~tr/"//d;
      $custom{$Uni}=$line;     
    
        }
foreach my $Uni (keys %custom){
print $FILE2, "$custom{$Uni}\n";
}