for my $elem(@included) {
  if($elem =~ /,/) {
    my @splitted = split(/,/,$elem);
    for(0..(scalar @splitted)-1) {
      $included_end[$_] = $splitted[$_];
    }
  } 
  else {
      for my $i(0..(scalar @included)-1) {
        $included_end[$i] = $included[$i];
      }
  }
}