use strict;
use Tie::Cycle;

my $monkeys = 5;
tie my $parent,        'Tie::Cycle', [ qw(Mama Papa) ];
tie my $head_owner,    'Tie::Cycle', [ qw(his her) ];
tie my $s,             'Tie::Cycle', [ ('s') x ($monkeys-1), '' ];
tie my $doctors_words, 'Tie::Cycle', [
  ('"No more monkeys jumping on the bed!"') x ($monkeys-1),
  '"Put those monkeys straight to bed!"'
];

print qq(
$monkeys little monkey$s jumping on the bed,
One fell off and bumped $head_owner head.
$parent called the Doctor and the Doctor said,
$doctors_words
) and $monkeys-- while $monkeys;
[download]

You know. I wrote it. I ran it. I posted it.

Then I showed it to my 6 year old daughter and the first thing she said was "1 monkeys? That doesn't make any sense."

I'd probably abuse the ternary op some more to get the number of monkeys right in that part. But I guess I'll leave up my original version.