RosettaCodeData/Task/FizzBuzz/Perl/fizzbuzz-4.pl

map((Fizz)[$_%3].(Buzz)[$_%5]||$_,1..100);