my @values;
for (my $i = 0; $i < $num_rows; ++$i) {
	my @ar;
	for (my $j = 0; $j < $num_cols; ++$j) {
		push @ar, ""
	}
	push @values, \@ar;
}