for(1..100){++$x%3or
print"Fizz",$_='';++$y%5or
print"Buzz",$_='';print"$_\n"}