sub fizzBuzz { #23456789 123456789 123456789 123456789 123456789 print(($_%3?"":Fizz).($_%5?"":Buzz)or$_)for 1..100 }