for my $i (1 .. $k - 1) {