foreach my $cluster (@$clusters) {                                 
#.....
}