for my $index (0..$l-1) {