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

$money = int(($money_de - (time() - $_->{time}))/3600)*3600;
・・・

ifから始まる文を上のように変えればできるはずです。
数値は、$money_liと$money_deを設定してください。
あとは使わないのでそのままでも、消してしまっても構いません。