C:\>perl -e "foreach (1..40_000){push @foo, {}}; print scalar @foo"
40000