gistfile1.txt

{
  package test::fuga;
  sub DESTROY {
    warn "fuga->DESTROY called";
  }
}
my $fuga = bless {}, 'test::fuga';

my @hoge;
Internals::SvREADONLY (@hoge, 1);

eval {
  push @hoge, $fuga;
};
warn 0+@hoge;

undef $fuga;
warn "End of program";

$ perl b.pl
0 at b.pl line 15.
End of program at b.pl line 18.
fuga->DESTROY called at b.pl line 4 during global destruction.

(Perl 5.10.1 / 5.16.2)

By removing the line Internals::SvREADONLY (@hoge, 1);, it got:

$ perl b.pl
1 at b.pl line 15.
End of program at b.pl line 18.
fuga->DESTROY called at b.pl line 4.