Update clusters.perl