#!/bin/env perl
open (LABEL,"<labels") or die $!;
@lines=<LABEL>;
close LABEL;
print @lines;
open (HANDLEE,">final_result") or die $!;
foreach $line (@lines)
{
(my $english_index, my $hindi_index, my $nua)=split(/\|/,$line);
open (HANDLE,">en_index") or die $!;
my @key_en=split(/:/,$english_index);
print HANDLE @key_en,"\n";
open (HANDLE_HI,">hi_index") or die $!;
print HANDLE_HI "$hindi_index\n";
my @key_hi=split(/:/,$hindi_index);
print HANDLE_HI @key_hi,"\n";
foreach $keye (@key_en)
{
$linb=`grep --regexp '$_' /home/vikash/pro_1/en_1000`;
print HANDLEE $linb;

}
foreach $keyh (@key_hi)
{
$linbh=`grep --regexp '$_' /home/vikash/pro_1/HI_1000`;
print HANDLEE $linbh;

}
print HANDLEE "*****\n";
}
close HANDLEE;