my @uniq;
my %seen;

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