for(1..100){($_%3?0:print "Fizz")+($_%5?0:print "Buzz")?0:print $_;print "\n"}