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

sub iterate {
        my ($curr_n, @values) = @_;
        
        for my $curr_k (1..$k) {
                if ($curr_n == $n) {
                        say join(', ', (@values, $curr_k));
                }
                else {
                        iterate($curr_n +1, (@values, $curr_k));
                }
        }
}

iterate(1, ());