#!/usr/bin/perl


#read dictionary
open(RE,"file1");
while(<RE>)
{
	chomp;
	my @tmp =split(/\,/,$_);
	$key="$tmp[0]";
	#print "$key\n ";
	my @words=split(//,$key);
			
}
close(RE);
my $length1 = $#words;
#check for a partial match
open(RE1,"file2");
while(<RE1>)
{
	$inp_word4 = $_;
	my @inp_word1 =split(//,$inp_word4);
	#print "@inp_word1";
}
close(RE1)
	my $length2=$#inp_word1;
	if($length1<$length2)
	{
		compare the array elements in another loop
	}