Fizz-Buzz Probrem

http://www.aoky.net/articles/jeff_atwood/why_cant_programmers_program.htm

1から100までの数をプリントするプログラムを書け。ただし3の倍数のときは数の代わりに｢Fizz｣と、
5の倍数のときは｢Buzz｣とプリントし、3と5両方の倍数の場合には｢FizzBuzz｣とプリントすること。

#!/usr/bin/perl

use strict;
use warnings;

foreach (1 .. 100) {

    if ($_ % 15 == 0) {
        print "FizzBuzz";
    }
    elsif ($_ % 5 == 0) {
        print "Buzz";
    }
    elsif ($_ % 3 == 0) {
        print "Fizz";
    }
    else {
        print $_;
    }
    print "\n";

}

__END__

なんのけれん味もないソースですが、とりあえず2分かからずにできました。ほっ。