#!/usr/bin/perl -w

use strict;

{
    for (1..100) {
      my @a;
      push(@a,'fizz')    if ($_%3==0);
      push(@a,'buzz')    if ($_%5==0);
      push(@a,'sausage') if ($_%7==0);

      if (@a) {
        print join(' ',@a) . "\n";
      } else {
        print "$_\n";
      }
    }
}