my @uniq;
my %seen = ();

for my $i (0..$#name1)  {
        if (!$seen{$name1[$i]}) {
          push (@uniq, $name1[$i]);
          print "$name1[$i]\t$name2[$i]\t$percent[$i]\n";
        };
}