my @words = qw( studying musing rifling );
printf "Others %s the Monastery", $words[ int rand @words ];