$subnets{"$ip,$len"}{ipn}   = $ipn;
$subnets{"$ip,$len"}{maskn} = $maskn;
if ( $subnets{"$ip,$len"}{'comment'} eq '' ){
  $subnets{"$ip,$len"}{'comment'} = $comment;
}