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