#!/usr/local/bin/perl
use strict;
use warnings;

sub fizzbuzz {
    my $n = shift;
    ($n % 3 ? '' : "Fizz").
    ($n % 5 ? '' : "Buzz")
    || $n;
}

print fizzbuzz($_), $/ for 1..30;