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