DB<2> n
main::(1038612.pl:11):	my $i=0;
  DB<2> n
main::(1038612.pl:12):	my $j=$i+1;
  DB<2> n
main::(1038612.pl:13):	my @arr1=();
  DB<2> n
main::(1038612.pl:14):	my @arr2=();
  DB<2> 
main::(1038612.pl:15):	my @arr3=();
  DB<2> 
main::(1038612.pl:16):	while($j <= $#lines)
main::(1038612.pl:17):	{
  DB<2> 
main::(1038612.pl:19):		@l1=split(/\t/,"$lines[$i]");
  DB<2> 
main::(1038612.pl:20):		@l2=split(/\t/,"$lines[$j]");
  DB<2> 
main::(1038612.pl:21):		if(abs($l2[3]-$l1[3]) <= 500 && $l1[6] eq $l2[6])
main::(1038612.pl:22):		{
  DB<2>