確認していませんが、おそらく以下のような感じにすればよいと思います。

foreach(reverse(@DT))
{
if ($_->{money} < $money_li) {

何度もご面倒なことをお願いして、申し訳ありませんでした。
これで様子を見てみることにいたします。
本当にありがとうございました。