In my version, you just have to write the make_config sub like this:

sub make_config {
  my (@genes) = @_;
  # sort classes in order by genes:
  # stupid #!@#!#$! sort bug
  my $sortsub = sub ($$) {
    my ($a,$b) = @_;
    $genes[$a] <=> $genes[$b];    
  };
  my (@sclasses) = @CLASSES[sort $sortsub (0..$#CLASSES)];
  push(@sclasses, (qw{XXX}) x ($SLOTS * $ROOMS));
  my ($config) = [];
  for my $s (0..$SLOTS-1) {
    push @$config, [];
    for my $r (0..$ROOMS-1) {
      my $i=0;
      while (!is_acceptable($sclasses[$i],$s,$r,$config)) {$i++;}
      push @{$config->[-1]}, splice(@sclasses,$i,1);
    }
  }
  $config;
}
[download]

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/
[download]