Something to the tune of (CODE UNTESTED):

my $name = "";

if ($R_Cinformix) {
  $name = "oracle"
} elsif { $R_Coracle ) {
  $name = "informix"
}

foreach ( $HR_Cwnt, $HR_Cunx ) {
  foreach $id ( keys %$_ ) {
    if ( $id =~ /.*?\.$name.*?$/ ) {
      delete( $_->{$id} );
    }
  }
}

$name = uc($name);

foreach ( $HR_CScomponent, $HR_CWcomponent ) {
  foreach $id ( keys %$_ ) {
    if ( $id =~ /.*?$name.*?$/ ) {
      delete( $_->{$id} );
    }
  }
}
[download]

Update: wow, programming in too many languages. fixed variable "sets"