#!/usr/bin/env perl

my $fb = fizzbuzz();
print "$_\n" for @$fb;

sub fizzbuzz {
    my ($n, $m) = (1, 100);
    my @out;
    for my $num ($n .. $m) {
        my $line = '';
        $line .= 'fizz' if $num % 3 == 0;
        $line .= 'buzz' if $num % 5 == 0;
        push @out, $line || $num;
    }
    return \@out;
}