++$count if CalculateDistance (54.988056, -1.619444, @data{@SList[1 .. 2]}) > $x;