Help for this page
$subnets{$_}{'comment'} //= 'ALLOCATED' for keys %subnets;
$_->{comment} //= 'ALLOCATED' for values %subnets;