1 2 3 4 5 6 7 8 9
#!/usr/bin/perl use 5.012; use strict; use warnings; say join ', ', map $_%15?$_%5?$_%3?$_:'fizz':'buzz':'fizzbuzz', 1 .. 20;