for (keys %data) {
   # you could do something with $data{$_} directly,
   # or if you need access to the individual keys ...
   my @keys = split /\0/;
   # ...
}