＞while ($i < 5){
＞print "$a"
＞$i++;
＞};
ﾜﾛﾀｗ
$aの中身入れてないなら同じのが出て当然だろｗ