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