$| = 1;
	print "Content-type: text/html\n\n";

	# get records
	@results = ();
	$sql = "SELECT * FROM my_table";
print "<br>sql = $sql<p>\n";
	$sth = $dbh->prepare($sql) or die("Could not prepare!" . $dbh->errstr);
	$sth->execute() or die("Could not execute!" . $dbh->errstr);
print "<br>executed sql<p>\n";

	$k = 0;
	while (@results = $sth->fetchrow_array()) {
		$data[$k] = [ @results ];
		$k++;
	}
	$sth->finish;

	for $a (0 .. $#data) {
		print "<br>$a => ";
		for $b (0 .. $#{$data[$a]}) {
			print ", $data[$a][$b]";
		}
	}

print "<br>Done\n";

##</code><code>##

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

##</code><code>##

if ($results[$j] eq "") {....}

##</code><code>##

while (@results = $sth->fetchrow_array()) {.....}