print
    map{$_."\n"}
    map{(/\d/ and !($_%5))?'Buzz':$_}
    map{(/\d/ and !($_%3))?'Fizz':$_}
    map{!($_%3 or $_%5)?'FizzBuzz': $_}
    (1..100)

