use Devel::LeakTrace::Fast; { my $x = []; }