--- a/lib/DNS/Vi.pm	Wed Jan 21 23:07:35 2015 +0100
+++ b/lib/DNS/Vi.pm	Wed Jan 21 23:07:59 2015 +0100
@@ -26,8 +26,6 @@
     my $data  = shift;
     my @lines = split /\n/, $data;
 
-    ### @lines
-
     my @zone;
     my ($origin, $ttl, $last_label, $soa_seen);
 
@@ -101,15 +99,11 @@
                 }
                 my $id = sha512_hex(join "\0", sort %rrset);
                 push @zone, { id => $id, rrset => \%rrset };
+		### x: $zone[-1]
             }
         }
     }
 
-    # list of {
-    #	id => $id,
-    #	rrset => { label => …, ttl => …, rrtype => …, data => … }
-    # }
-    ### @zone
     return @zone;
 }