#!/usr/bin/perl -w

use strict;

for(my $i=1; $i<101; $i++){
	print "$i\n";
	print "Fizz" if($i%3==0);
	print "Buzz" if($i%5==0);
	print ".\n" if($i%3==0 or $i%5==0);
}