@bogus = map { $_ if !defined $good{$_}; } keys %found; @missing = map { $_ if !defined $found{$_}; } keys %good;