in reply to Matching words

use List::Util 'all';

In Section Seekers of Perl Wisdom