FizzBuzz in Perl