fizzbuzz one-liner in perl