my $n = 3;
my $k = 2;

my @todo_list = ([ 0, [] ]);

while (@todo_list) {
	my $todo = pop @todo_list;
	
	my $local_n = $todo->[0] +1;
	
	for my $curr_k (1..$k) {
		if ($local_n == $n) {
			say join(', ', @{$todo->[1]}, $curr_k);
		}
		else {
			push @todo_list, [ $local_n, [ @{$todo->[1]}, $curr_k ] ];
		}
	}
}