@array = split /,/, $cant_make_day{$elim_key};
  $length = @array;

##</code><code>##

  $length = 1 + $cant_make_day{$elim_key} =~ tr/,/,/;