my $i = 0;
my $toggle = -1;
my @p = qw|ROI1 ROI2 ROI3 ROI4 ROI5 ROI6 ROI7|;
my @points,%ROI;
open (POINTS, "<points.txt");
while (<POINTS>) {
	chomp $_;
	my $a,$b,$c;
	($a,$b,$c) = split(/\t/,$_);
	if ($a == 1) {
		$toggle *= -1;
		if ($toggle < 0) {
			$i++;
			$toggle = 1;
		}
	}
	if ($b == -1) {
		$i++;
		$toggle = -1;
	} else {
		push @{$p[$i]}, [$b,$c];
	}
}