#!/usr/bin perl
open(DAT,">final_result");
open(HANDLE,"<labels");
while($line=<HANDLE>)
	{
		chomp($line);
		($english_index,$hindi_index,$nua)=split(/\|/,$line);
		@english=split(/:/,$english_index);
		@hindi=split(/:/,$hindi_index);
		for($j=0;$j<=$#english;$j++)
			{
				$eng_dat=`grep --regexp '$english{$j}' /home/vikash/pro_1/en_1000`;					
				print DAT $eng_dat;			
			}	
		for($j=0;$j<=$#hindi;$j++)
			{
				$hindi_dat=`grep --regexp '$hindi{$j}'	/home/vikash/pro_1/HI_1000`;			
				print DAT $hindi_dat;
			}
		print DAT  "*****************************************************************\n";

	}	
close DAT;
__END__