my @octets10 = split /\./, $address{decimal}; for (@octets10) {