my @x = [1,2],[0,1,2],3,[2,3];
my $alte_bewertung = 0;
for [X]@x -> @kombination {
 my $aktuell = funktion(@kombination);
 if $aktuell > $alte_bewertung {@x = @kombination; $alte_bewertung = $aktuell}
}