#Geschlechtsidentifikations-R
            $assigned_col = (defined($excel_assign{"$eo,$sheet"}[$ba_config{'sex_col'}])) ? ($excel_assign{"$eo,$sheet"}[$ba_config{'sex_col'}]) : ($ba_config{'sex_col'});
            $sex_cmp = $current_sheet->{Cells}->[$row]->[$assigned_col]->{Val};
            $sex_r = $none;
          
            &debug("\n\nba_config{'sex_col'} = $ba_config{'sex_col'}, sex_cmp = $sex_cmp, ba_config{'sex_m'} = $ba_config{'sex_m'}, ba_config{'sex_w'} = $ba_config{'sex_w'}");

            foreach my $male_cmp (split(/,/,$ba_config{'sex_m'}))
             {
              my $test_chr = '';
              $test_chr .= "$_ = ".ord($_).', ' for(split(//,$male_cmp)); $test_chr .= " <-------->;;;;; ";
              $test_chr .= "$_ = ".ord($_).', ' for(split(//,$sex_cmp));
              &debug
($test_chr);
              &debug
("('sex_cmp' =~ 'male_cmp') -->;;;;; ('$sex_cmp' =~ '$male_cmp')");
              &debug
('CHECK 1 MANUALLY: "'.($sex_cmp =~ /^\s*$male_cmp\s*$/si).'"');
              &debug
('CHECK 2 MANUALLY: "'.($sex_cmp =~ /^\s*$male_cmp\s*$/sgi).'"');
              &debug
('CHECK 3 MANUALLY: "'.($sex_cmp eq $male_cmp).'"');
              &debug
('CHECK 4 MANUALLY: "'.($sex_cmp =~ /$male_cmp/si).'"');

              if($ba_config{'case_m'} == 1) { &debug('INNERHALB (case_m == 1), '."male_cmp = $male_cmp, sex_cmp = $sex_cmp"); $sex_r = 'r' if ($sex_cmp =~ /^\s*$male_cmp\s*$/s);  &debug("sex_r = $sex_r"); }
              else               
           { &debug('INNERHALB (case_m == 0), '."male_cmp = $male_cmp, sex_cmp = $sex_cmp"); $sex_r = 'r' if ($sex_cmp =~ /^\s*$male_cmp\s*$/si); &debug("sex_r = $sex_r"); }
              last if($sex_r ne $none);
             }

            &debug("sex_r = $sex_r");

            foreach my $female_cmp (split(/,/,$ba_config{'sex_w'}))
             {

              my $test_chr = '';
              $test_chr .= "$_ = ".ord($_).', ' for(split(//,$female_cmp)); $test_chr .= " <-------->;;;;; ";
              $test_chr .= "$_ = ".ord($_).', ' for(split(//,$sex_cmp));
              &debug
($test_chr);
              &debug
("('sex_cmp' =~ 'female_cmp') -->;;;;; ('$sex_cmp' =~ '$female_cmp')");
              &debug
('CHECK 1 MANUALLY: "'.($sex_cmp =~ /^\s*$female_cmp\s*$/si).'"');
              &debug
('CHECK 2 MANUALLY: "'.($sex_cmp =~ /^\s*$female_cmp\s*$/sgi).'"');
              &debug
('CHECK 3 MANUALLY: "'.($sex_cmp eq $female_cmp).'"');
              &debug
('CHECK 4 MANUALLY: "'.($sex_cmp =~ /$female_cmp/si).'"');

              if($ba_config{'case_w'} == 1) { &debug('INNERHALB (case_w == 1), '."female_cmp = $female_cmp, sex_cmp = $sex_cmp"); $sex_r = '' if ($sex_cmp =~ /^\s*$female_cmp\s*$/s);  &debug("sex_r = $sex_r"); }
              else               
           { &debug('INNERHALB (case_w == 0), '."female_cmp = $female_cmp, sex_cmp = $sex_cmp"); $sex_r = '' if ($sex_cmp =~ /^\s*$female_cmp\s*$/si); &debug("sex_r = $sex_r"); }
              last if($sex_r ne $none);
             }

            &debug("sex_r = $sex_r");