今Perlでプログラム組んでいてほぼ完全に動作しているのですが、原因が分からないのですが何かの切っ掛けでこの部分がたまにエラーを吐いてきます。

129 :　foreach(keys %an){
130 :　　$data = sprintf("%08d\t$_",$an{$_});
131 :　　push(@count,$data);
132 :　}

エラー内容は
Modification of a read-only value attempted at test.cgi line 130.
なのですが、このエラーの修正方法が分かりません。
このスレでいいのかちょっと謎ですが宜しくお願いします。