print "subnet,prefix,name\n";
print "$_,$subnet{$_}{'comment'}\n"
   for sort { $subnets{$a}{ipn} <=> $subnets{$b}{ipn} };