March 2014 update

Task/FizzBuzz/Perl/fizzbuzz-1.pl

@@ -1,14 +1,10 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
+use feature qw(say);
 
-use feature qw/say/;
-
-foreach my $i (1 .. 100) {
-    say + (0 == $i % 15) ? "FizzBuzz"
-        : (0 == $i % 3) ? "Fizz"
-        : (0 == $i % 5) ? "Buzz"
-        : $i
-        ;
+for my $i (1..100) {
+    say $i % 15 == 0 ? "FizzBuzz"
+      : $i %  3 == 0 ? "Fizz"
+      : $i %  5 == 0 ? "Buzz"
+      : $i;
 }

Task/FizzBuzz/Perl/fizzbuzz-5.pl

@@ -0,0 +1,5 @@
+use feature "say";
+
+@a = ("FizzBuzz", 0, 0, "Fizz", 0, "Buzz", "Fizz", 0, 0, "Fizz", "Buzz", 0, "Fizz");
+
+say $a[$_ % 15] || $_ for 1..100;