fizzbuzz

fizzbuzz.pl

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $num = 100;

for my $i (
  1..$num
)
{

  if ( $i % 15 == 0 )
  {

    print "FizzBuzz";

  }
  elsif( $i % 3 == 0 )
  {

    print "Fizz";

  }
  elsif( $i % 5 == 0 )
  {

    print "Buzz";

  }
  else
  {

    print $i;

  }

  print "\n";

}

exit 0;