#!/usr/bin/perl -w
use strict;
my $counter = 1;
while (++$counter < 100) {
	print "Fizz " if (int($counter / 3) == $counter / 3);
	print "Buzz " if (int($counter / 5) == $counter / 5);
	print $counter." " if (int($counter / 5) != $counter / 5 && int($counter / 3) != $counter / 3);
}