note
toolic
Your dis and apr arrays only have one element each in them, corresponding to the last line of each file. You should [doc://push] into each array. For example, change:
<c>
@dis_dic = $f1_line;
</c>
<p>to:
<c>
push @dis_dic, $f1_line;
</c>
<p>Also, your use of [doc://index] looks strange. Re-read the docs. You could use [doc://grep] there. But, I think using hashes is better than arrays in this case.
1212284
1212284