sub DESTROY {$@ = "Hi"}
eval {bless []};
say $@;
__END__
Hi!