削除されているのですね。
DESTROYについて次の様に試しましたら毎回実行されました。
#newで"newしました。\n"、DESTROYで"DESTROYが呼ばれました。\n"を出力しています。
<hoge.pl>
print "開始\n";
my $i;
for( $i = 0; $i < 3; $i++ ){
print "ループ開始\n";
my $hoge = new HOGE();
undef $hoge;
print "ループ終端\n";
}
print "終了\n";
exit 0;
<結果>
開始
ループ開始
newしました。
ループ終端
ループ開始
DESTROYが呼ばれました。
newしました。
ループ終端
ループ開始
DESTROYが呼ばれました。
newしました。
ループ終端
終了
DESTROYが呼ばれました。