1級perl検定

以下のコードのバグを見つけよ
（制限時間15秒）

---------------------------------------

for ( my $a=1; $a<=10; $a++ ) {
　print "$a\n" if $a=3;
}