Select Code to Download

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

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

$number_of_clusters ||= 2;

my $number_of_clusters   = abs(shift @ARGV);