gistfile1.txt

use 5.010;

use strict;

my $i = 0;
my %fb = qw (3 fizz 5 buzz 7 wolf);
my %h = map { (2 ** $i++), $_ } qw (fizz buzz wolf);

for my $x (1..105) {
  my $num = 0;
  my $j = 0;

  for my $fb (sort keys %fb) {
    $num |= !($x % $fb) << $j++;
  }

  say $num ? @h{ grep { $_ & $num } sort keys %h } : $x;
}