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

##</code><code>##

for (i = number_of_clusters; i--; ) { ... } 

##</code><code>##

$number_of_clusters ||= 2; 

##</code><code>##

my $number_of_clusters   = abs(shift @ARGV);