I just changed the until loop to a while loop and now it's working as expected

Sorry for wasting your time...I was not thinking clearly

while (my @date = grep /$new_ex_date/,@{$countries{$cntry_of_issue}})
        {
                $new_date=get_next_bus_day($new_date);
        }
[download]