for ([qw/dog good/],[qw/food fodder/]) {
   my ($first, $second) = @$_;
   print "$first does ";
   print "not "
      unless join("",sort split //,$second) =~ join(".*",sort split //,$first);
   print "contain $second\n";
}