$subnets{$_}{'comment'} //= 'ALLOCATED' for keys %subnets;

##</code><code>##

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