Did you try whether it works? Seems easier than asking here whether it does.

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

$
[download]

Alternatively, one could have consulted the manual page:

 Note that "exec" will not call your "END" blocks, nor will it
 invoke "DESTROY" methods on your objects.
[download]