foreach $ip (keys(%subnets)) {
  if("$subnets{$ip}{'comment'}" eq "") {
      $subnets{$ip}{'comment'} = "ALLOCATED";
  }
  print "$subnets{$ip}{'comment'}\n";
}