$ perl -wE 'sub DESTROY {say "ping"} my $x = bless [];'
ping
$ perl -wE 'sub DESTROY {say "ping"} my $x = bless []; exec "echo"'

$