こんにちわ、perlの事で質問させてください。
以下のスクリプトですが

　#! /usr/bin/perl 　# お約束
　# 私のスクリプトそのままです（編集はしてません）
　$TMP = 10 ** 10; 　# $TMP　に10の10乗を代入
　$X = 10; 　# $X　に10を代入
　while ($TMP) 　# $TMPが0になるまで繰り返し処理
　 {$A = --$TMP % $X; 　# $TMPの値を-1し、$Xの剰余を$Aに代入
　 print "$A $TMP \n";}# 処置した値を画面に表示


上記のスクリプトですが、表示される$Aの値が変化しません
5 999999999
5 999999998
5 999999997 ......

$Xの値が１だと$Aは0で固定
$Xの値が２だと$Aは1で固定
$Xの値が３だと$Aは0で固定
$Xの値が４だと$Aは3で固定
$Xの値が５だと$Aは0で固定
$Xの値が６だと$Aは3で固定
$Xの値が７だと$Aは3で固定
$Xの値が８だと$Aは7で固定
$Xの値が９だと$Aは3で固定

私の知識が正しければ、$TMPの値を$Xで割った余りの数値が表示され
1行ごとに値が変更されると思うのですが。。。

どこか間違っているのでしょうか
識者の皆様、ご回答をお願いします