my @frau = qw /bl ge gr br sw rt/;
my @mann = qw /ge bl bl br sw rt/;
my %h = ();        # der kleine Helfer ;)
@h{@frau} = @mann; # slice
my $anz = grep{ $h{$_} eq $_  }keys %h;
print $anz;