Just for reference, in case anyone was wondering, this is what it should be outputting:

  perl -E 'say for map { ( $_ % 3 ? "" : 'fizz' ) . ( $_ % 5 ? "" : 'buzz' ) || $_ } 1..shift' 42