@a=map{
    !($_%3)?
    !($_%5)?'FizzBuzz':
    'Fizz':
    !($_%5)?'Buzz':
    $_
}(1..100);
print "$_\n" for @a