Select Code to Download

This code....
# First, get the subset cluster number.
...

This line does not do what you think it does...
   chomp $c; # remove trailing white space in $c ('ugly stuff')

foreach $i(@a){
    foreach my $i2(@A2){
        if($i =~ m/$i2/){