#!/usr/bin/perl
print join ' ', map {'Fizz'x!($_ % 3) . 'Buzz'x!($_ % 5) || $_} (1..100);