飛田先生の挑戦状「1 から100まで順に数を数えていき、特定条件の数字の時に追記するソース」

Perl programming

[問題]
1 から100まで順に数を数えていく。ただし、その数が 3 で割り切れるならば数字の次にアリス と、5 で割り切れるなら数字の次にパチュリーと出力する。3 でも 5 でも割り切れる場合は、数字の次にマリサ と出力する。

gerocchoの答え -Perlにて-

use strict;
 use warnings;


for ($a=1; $a<=100; $a++){
	if ( $a % 15 == 0 ){
		print "$aマリサ\n";
	}
	elsif ( $a % 3 == 0 ){
		print "$aアリス\n";
	}
	elsif ( $a % 5 == 0 ){
		print "$aパチュリー\n";
	}
	else {
		print "$a\n";
	}
}

恩師　飛田先生からのプログラムのアルゴリズムの理解度テストの第一問をお受けしました。
ただ今第二問をがんばってます…