foreach my $num (1..5) {
 foreach my $letters ( ('TS','SA') ) {
  my $name = "cluster".$num."_".$letters;
  foreach ( @{$cluster{$name}}) {
   do_action($_);
  }
 }
}