#!/usr/local/bin/perl
use 5.012;
my @fizzbuzz;
for my $i (1..30) {
    $fizzbuzz[$i] .= 'Fizz' if $i % 3 == 0;
    $fizzbuzz[$i] .= 'Buzz' if $i % 5 == 0;
}
say 0+@fizzbuzz;
say for @fizzbuzz;