--- a/lib/DNS/Vi.pm	Wed Jan 21 23:07:59 2015 +0100
+++ b/lib/DNS/Vi.pm	Wed Jan 21 23:08:37 2015 +0100
@@ -97,7 +97,7 @@
                           unless substr($rrset{data}, -1) eq '.';
                     }
                 }
-                my $id = sha512_hex(join "\0", sort %rrset);
+                my $id = sha512_hex(join "\0", map { $_ => $rrset{$_} } sort keys %rrset);
                 push @zone, { id => $id, rrset => \%rrset };
 		### x: $zone[-1]
             }