$, = "\n"; $\ = "\n";
my @frau = qw /bl ge gr br sw rt Tina Pia Frauke/;
my @mann = qw /ge bl bl br sw rt/;
my @keinMann = ();
local $SIG{__WARN__} = sub{push @keinMann, $_};
my %h = ();
@h{@frau} = @mann;
my $anz = grep{ $h{$_} eq $_  }keys %h;
print "Paare: $anz", "Kein Mann bekommen haben:", @keinMann;