for $i (0 .. 137) {
		print "<br>$i => ";
		for $j (0 .. 18) {
			$data[$i][$j] = "D".$i."B".$j;
		}
	}