my @hoelzer = (3, 3);
my @bretter = (1, 1, 1);

my @moegliche_belegungen;
my @belegung;
for (@hoelzer) {
        push @belegung, [];
}


sub summe {
        my $sum = 0;
        
        for my $elem (@_) {
                $sum += $elem;
        }
        
        return $sum;
}

sub plaziere_holz {
        my $bretter = shift;
        my $belegung = shift;
        
        my @bretter = @$bretter;
        my @belegung = @$belegung;
        
        my $holz = shift(@bretter);
        
        unless ($holz) {
                push @moegliche_belegungen, [ map { [ @$_ ] } @belegung ];               
                return;
        }

        for my $i (0..$#hoelzer) {
                if ($hoelzer[$i] - summe(@{$belegung[$i]}) >= $holz) {
                        push $belegung[$i], $holz;
                        plaziere_holz(\@bretter, \@belegung);
                        pop $belegung[$i];
                } 
        }
}

plaziere_holz(\@bretter, \@belegung);

@moegliche_belegungen = sort {
        my $bewertung_a = 0;
        my $leerhoelzer_a = 0;
        for my $i (0..$#hoelzer) {
                $bewertung_a += ($hoelzer[$i] - summe(@{$a->[$i]})) **2;
                $leerhoelzer_a++ if summe(@{$a->[$i]}) == 0;            
        }
        
        my $bewertung_b = 0;
        my $leerhoelzer_b = 0;
        for my $i (0..$#hoelzer) {
                $bewertung_b += ($hoelzer[$i] - summe(@{$b->[$i]})) **2;
                $leerhoelzer_b++ if summe(@{$b->[$i]}) == 0;
        }

        if ($leerhoelzer_a != $leerhoelzer_b) {
                return $leerhoelzer_a <=> $leerhoelzer_b;
        } else {
                return $bewertung_a <=> $bewertung_b;
        }
} @moegliche_belegungen;

for my $bel (@moegliche_belegungen) {
        say join("  |  ", map { join('; ', @$_) } @$bel);
}