#!/usr/bin/perl

use strict;
use Tie::Cycle;

tie my $parent, 'Tie::Cycle', [ qw(Mama Papa) ];
tie my $head_owner, 'Tie::Cycle', [ qw(his her) ];
my $monkeys = 5;

print qq(
$monkeys little monkeys jumping on the bed,
One fell off and bumped $head_owner head.
$parent called the Doctor and the Doctor said,
@{[--$monkeys ?
'"No more monkeys jumping on the bed!"' :
'"Put those monkeys straight to bed!"'
]}
) while $monkeys;