for my $i ( 0 .. $number_of_clusters-1 ) { ... }