my %frau = map { $_ => 1 } @frau;
for my $key (@mann) {
    say "Paar $key" if $frau{ $key }++ == 1;
}