変数$Aの中に、$NO1.$NO2,$NO3・・・　という風に順番に数字を入れて処理を
繰り返したいのですがうまくいきません。どうか助けてください。変数の中に
変数というのは無理なんでしょうか？

for($m=1 ;$m <= 9 ; ++$m){
&print($m);
}
====================
sub print {
my ($i) = @_ ;
$A = "$NO$i";　　　#←この部分がやりたいことです
print = $A;
}

若輩者ですが、宜しくお願いします。