http://goo.gl/t6U1J を見て慣れないPerlを使って12分で書いたFizzBuzz

fizzbuzz.pl

#!/usr/bin/env perl
use strict;
use warnings;

local ($,, $\) = ("\n", "\n");

print map{
  if ($_ % 15 == 0) {
    "FizzBuzz"
  } elsif ($_ % 3 == 0) {
    "Fizz"
  } elsif ($_ % 5 == 0) {
    "Buzz"
  } else {
    $_
  }
} (1..shift);