s/^/IP_/ for values %{ $newHosts->{ server } };

##</code><code>##

$_ = q/IP_/ . $_ for values %{ $newHosts->{ server } };