sub merge {
  my ($pre,$cur,$nex, $mindist) = @_;
  # here write your logic for merging either cur+pre or cur+nex or no merging at all given mindist
  my $decicion_to_merge = ...
  if( $decicion_to_merge == 1 ){ ... merge the intervals ... }
}