my @frau = qw /bl bl bl ge gr br sw rt/;
my @mann = qw /ge bl bl br sw rt/;