This is a challenge?

fizzbuzz.pl

#!/usr/bin/perl

for (my $i = 1; $i <= 100 ; $i++) {
  my $out = '';
	if (($i % 3) == 0) {
		$out .= 'Fizz';
	} 
	if (($i % 5) == 0) {
		$out .= 'Buzz';
	} 
	if ($out eq '') {
		$out = $i;
	}

	print "$out\n";
}