my @keys =  grep /.*?\.oracle.*?$/, keys %$HR_Cwnt;
delete @$HR_Cwnt{@keys};