Shujia Huang ShujiaHuang

## Merge.pl
#!/usr/bin/perl
use strict;
use warnings;

#1. 纯区域的Merge
sub Merge {

    my ( $dis_delta, @region) = @_; # An array , format: [chrId, start, end]

    my ( %prePos, @data, $id, $start, $end );
	#!/usr/bin/perl
	use strict;
	use warnings;

	#1. 纯区域的Merge
	sub Merge {

	my ( $dis_delta, @region) = @_; # An array , format: [chrId, start, end]

	my ( %prePos, @data, $id, $start, $end );