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;
}