yapc-japan-online-2.pl

use strict;
use warnings;
use utf8;

my @result = (
    undef, 'Fizz', 'Buzz', 'FizzBuzz',
    'セブン', undef, undef, undef,
    'イレブン', undef, undef, undef,
    'セブンイレブン', undef, undef, 'いい気分',
);

for(my $i = 1; $i <= 2000; $i++){
    my $f = 0;
    if($i % 3 == 0){
        $f += 1;
    }
    if($i % 5 == 0){
        $f += 2;
    }
    if($i % 7 == 0){
        $f += 4;
    }
    if($i % 11 == 0){
        $f += 8;
    }
    my $r = $result[$f] // $i;
    print $r . "\n";
}