my $start = 0;
my $end = 0;


for my $i (0 .. $#al) {
	$end = $al[$i][0];
	for my $s ($start .. $end-1){
		print "$start\t$end\n";

		if ($s == $end-1){
			$start = $end+1;
		}
	}

}