Do a `while` loop:

```perl
while (my ($clus, $cluster) = each(%{$t->{clusters}})) {
```