Joining the ideas of Mr. Muskrat and fredopalus...

#!/usr/bin/perl

mmm("$0 porridge");
mmm("Some like it");

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

Matt