Select Code to Download

foreach my $cur_cnt (0..$#current)
{
     foreach my $base_cnt (0..$#base)
...
           }
     }
}

foreach my $current (@current)
{
     foreach my $base (@base)
...
           }
     }
}