my %missing-words = %book-words - %dictionary;

##</code><code>##

my %missing = map { $_ => 1 } grep { ! exists $dict{ $_ } } keys %book;