perl -wle'
for (0..100_000) {
 $array[$_] = [];
}
print scalar @array'
100001