C:\>more newfizzbuzz.pl
#!/usr/bin/perl
use warnings;
use strict;

my @stuff = (1..100);

my @fizzbuzz = map { ($_ % 3 == 0 && $_ % 5 == 0)?print "fizzbuzz\t":
                     $_ % 3 == 0? print "fizz\t":
                     $_ % 5 == 0?print "buzz\t":print "$_\t"
                     } @stuff;