#!/usr/local/bin/perl
use strict;
use warnings;
for my $n ( 1 .. 30 ) {
    my $fz = '';
    $fz .= 'Fizz' unless $n % 3;
    $fz .= 'Buzz' unless $n % 5;
    print $fz || $n, "\n";
}