# take for granted all words are within a particular array
# and we recently added German with index of 3

while ( defined($word = shift(@vocab)) ) {
   print "No German word for $word!\n" if (!${$word}[3]);
}