my @frau = qw /bl ge gr br sw rt foo  bar/;
my @mann = qw /ge bl bl br sw rt foox/;
my $w = 0; # Anzahl der Frauen, die zuviel sind
local $SIG{__WARN__} = sub{$w++};
my %h = ();
@h{@frau} = @mann;
my $anz = grep{ $h{$_} eq $_  }keys %h;
print "Paare: $anz", "Frauen-Überzahl: $w";