my (@name1, @name2, @percent); # initialized elsewhere
my %seen; 
++$seen{$_} for @name1;
for ( 0 .. $#name1 ) {
    next if $seen{ $name[$_] } > 1;
    print $name2[$_];
    last;
}