Select Code to Download

foreach my $num (1..5) {
 foreach my $letters ( ('TS','SA') ) {
...
  }
 }
}

my @clusters = 
(       
...
 ['h24', 'h25', ... ],
 ['h32', 'h33', ... ],
);

my @clusters = 
(       
...
 'h24', 'h25', ... ,
 'h32', 'h33', ... ,
);