foreach my $ip ( keys %subnets ) {
	if (undef $subnets{$ip}{$comment}) {
		$subnets{$ip}{$comment} = 'ALLOCATED';
	}
}