die "Different length" if length $HOSTNME != length $SRVCHX;
for my $pos (0 .. length($HOSTNME) - 1) {
    warn  warn "$HOSTNME\n", " " x $pos, "| $pos\n$SRVCHX\n"
        if substr($HOSTNME, $pos, 1) ne substr($SRVCHX, $pos, 1);
}