mmm("porridge");

sub mmm {
  for ("hot,", "cold,", "in the pot,") {
    print "$0 $_[0] $_$/";
  }
  print "nine days old.$/";
}