my %seen;
for (0..$#name1) {
    next if $seen{ $name1[$_] }++;
    print $name2[$_];
}

##</code><code>##

( 0 => 1, ..., $#name1 => 1 )