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