#! /usr/bin/perl

for($inx=1;$inx<=100;$inx++) {
   printf("Inx equals %d ",$inx);
   if ( $inx % 3 == 0 ) {
     printf("fizz");
   }
   if ( $inx % 5 == 0 ) {
     printf("buzz");
   }
   printf("\n");
}