#!/usr/local/bin/perl
use 5.012;

sub fizzbuzz {
    my @fizzbuzz;
    push @fizzbuzz, ('Fizz')[$_%3] . ('Buzz')[$_%5] || $_ for @_;
    @fizzbuzz;
};

my @hundred = (1..100);

while (my @fifteen = splice @hundred, 0, 15) {
    say join ", ", fizzbuzz @fifteen;
}