my $newdata = readbug($ref, $archive);
my %jointkeys = map { $_ => 1 } (keys %$data), (keys %$newdata);
for my $key (keys %jointkeys) {
unless (exists $data->{$key}) {
my $newdata = readbug($ref, $archive);
my %jointkeys = map { $_ => 1 } (keys %$data), (keys %$newdata);
for my $key (keys %jointkeys) {
unless (exists $data->{$key}) {