# e.g. $hosts{'DMZ Server'} = qr{(?i:server2)};

while( my ($name, $reg) = each %hosts ) {
    return $name if $x =~ $reg;
}