foreach my $index ( 0 .. $endex - 1 ){