#!/usr/bin/perl -w
use strict;

foreach my $x (0..100) {
	if (!($x%3) && !($x%5)) {
		print $x . " fizzbuzz\n";
	} elsif (!($x%3)) {
		print $x . " fizz\n";
	} elsif (!($x%5)) {
		print $x . " buzz\n";
	}
}