FizzBuzz問題

FizzBuzz問題

foreach
my
$n (1 .. 100) {
my
$matched = 0;
if (! ($n % 3)) {
print
"Fizz";
$matched = 1;
}
if (! ($n % 5)) {
print
"Buzz";
$matched = 1;
}
if (! $matched) {
print
$n;
}
print
"\n";
}

こんなんしかできません(>_<)