長文すみません
以下のjavaを

// 平均パケット到着レートの算出＆ヒストグラム構成
if (preTimeList.size() >= pktNumForCalcRateAverage) {
sampleAveRate = pktNumForCalcRateAverage / (nowTime - preTimeList.remove(0));
int point = (int)(sampleAveRate / gap);
histgram[point] += 1;
total += sampleAveRate;
lineNum += 1;
}

をperlに書き変えたいのですが

# 平均パケット到着レートの算出＆ヒストグラム構成
if ($preTimeList.size() >= $pktNumForCalcRateAverage) {
$sampleAveRate = $pktNumForCalcRateAverage / ($nowTime - $preTimeList.remove(0));
　　　　$point = ($sampleAveRate / $gap);
　　　　$histgram[$point] += 1;
　　　　$total += $sampleAveRate;
　　　　$lineNum += 1;
　　}　

ではエラーが出てしまいうまくいきません。
nowTimeが間違っているのでしょうか？
どなたかアドバイスお願いします。