#!/usr/bin/perl -w
use strict;
use warnings;
print "Content-type:text/html\n\n";

my @var;
$var[0] = "Gallia est omnis divisa in partes tres";
$var[1] = "Gallia est omnis divisa in ...";
$var[2] = "Gallia est omnis ...";
$var[3] = "Gallia";
$var[4] = "... omnis divisa in ...";
$var[5] = "Gallia est ... tres";
$var[6] = "Gallia ... partes tres";
$var[7] = "Gallia est ... partes tres";
$var[8] = "Gallia ... divisa ... tres";
$var[9] = "... tres";
$var[10] = "quattuor";

my @base_phrase_words = split(/\s/, $var[0]);
push(@base_phrase_words, "...");
my %words = map { $_ => 1 } @base_phrase_words;

for (my $i=1; $i<=$#var; $i++) {
	my @partial_phrase_words = split(/\s/, $var[$i]);
	foreach my $element (@partial_phrase_words){
		if (exists($words{$element})) {
			# do whatever
		}
		else {
			print "<p>Found word $element in phrase $i varies from base phrase\n";
		}
	}
}