#!/usr/local/bin/perl
use strict;
use warnings;
sub fizzbuzz {
    my $n = shift;
    my ( $f, $z ) = qw/Fizz Buzz/;
    $f = '' if $n % 3;
    $z = '' if $n % 5;
    $f . $z || $n;
}
print fizzbuzz($_), "\n" for 1 .. 30;