for my $p (keys %oldbugs) {
for $b (@{$oldbugs{$p}}) {
if (!defined($scanlib::packagelist{$p}) || scalar grep { $_ == $b } @{$scanlib::packagelist{$p}} == 0) {
for my $p (keys %oldbugs) {
for $b (@{$oldbugs{$p}}) {
if (!defined($scanlib::packagelist{$p}) || scalar grep { $_ == $b } @{$scanlib::packagelist{$p}} == 0) {