Select Code to Download

until (my @date = grep !/$new_date/,@{$countries${cntry_of_issue}})
        {
                $new_date=get_next_bus_day($new_date);
        }

sub get_next_bus_day {
my $inc=1;
my $inc4sat=2;
...
return $new_date;
}