DB<1> 
main::(1038612.pl:21):		if(abs($l2[2]-$l1[2]) <= 500 && $l1[5] eq $l2[5])
main::(1038612.pl:22):		{
  DB<1> 
main::(1038612.pl:23):			$hash{$lines[$j]}=1;
  DB<1> 
main::(1038612.pl:24):			if(!exists $hash{$lines[$i]})
main::(1038612.pl:25):			{
  DB<1> 
main::(1038612.pl:26):				$hash{$lines[$i]}=1;
  DB<1> x %hash
0  "ID2\cIch1\cI90\cImir\cIabc\cIxyz\cIch2\cI4000\cJ"
1  1