my ($hostname) = split /\./, $NODE; 

##</code><code>##

$hostname = split /\./, $NODE;