my @table;

foreach (0..Inf) {
 $table[$row][$col]=[qw(some list elements)];
}