my $i = 0;
for my $item (@{$clusters}) {
   ...
   $i++
}