DB<7> l 21
21:		if(abs($l2[3]-$l1[3]) <= 500 && $l1[6] eq $l2[6])
  DB<9> x $l2[3], $l1[3]
0  'mir'
1  'mir'