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

for my $num (1 .. 100) {
        my $mod3num = $num % 3;
        my $mod5num = $num % 5;
        my $result = "";

        if ( $mod3num == 0 ) {
                $result .= "fizz";
        }

        if ( $mod5num == 0 ) {
                $result .= "buzz";
        }

        if ( $result =~ /z/ ) {
                print "[$num] $result\n";
        } else {
                print "[$num] $num\n";
        }
}