perl -we '$x = 1; $x = [$x] for 0 .. 0 + $ARGV[0]; $x = ();' 50000

##</code><code>##

...
#78 0x080bd016 in Perl_sv_free ()
#79 0x080acd3e in Perl_av_undef ()
#80 0x080bcd9a in Perl_sv_clear ()
#81 0x080bd016 in Perl_sv_free ()
#82 0x080bcad5 in Perl_sv_clear ()
#83 0x080bd016 in Perl_sv_free ()
#84 0x080acd3e in Perl_av_undef ()
#85 0x080bcd9a in Perl_sv_clear ()
#86 0x080bd016 in Perl_sv_free ()
#87 0x080bcad5 in Perl_sv_clear ()
#88 0x080bd016 in Perl_sv_free ()
#89 0x080acd3e in Perl_av_undef ()
#90 0x080bcd9a in Perl_sv_clear ()
#91 0x080bd016 in Perl_sv_free ()
#92 0x080bcad5 in Perl_sv_clear ()
...

##</code><code>##

perl -we 'for (0 .. $ARGV[0]) { my $y = 1; my $x = \$y; $x = [$x] for 0 .. 1000; $y = $$x[0]; }; system "ps u $$"' 1000