Yes, I do know what time of year it is. But hey, it's snowing up here, so I'm feeling festive. Bring on the eggnog!

                        @_
                       =('A'
                      , 'a', 
                      'Two', 
                  'Three', 'Four'
                 , 'Five', 'Six', 
              'Seven', 'Eight', 'Nine',
             'Ten', 'Eleven', 'Twelve', 
            'ing', 'in','geese', 'partridge'
           ,'swans', 'hens', 'birds', 'doves', 
          'danc', 'pear', 'call', 'tree', "\n", 
                'swimm', 'milk', 'leap'
            ,'pip', 'drumm', 'ers', 'turtle'
          , 'rings', 'french', 'maids', 'ladies',
        'lords', 'golden', 'lay', 'and'); @a=(&_____,
      &______.&_____,&_______.&______.&_____,&________.
   &_______.&______.&_____, &__________.&________.&_______.
  &______.&_____, &____________.&__________.&________.&_______.
 &______.&_____, &___________.&____________.&__________.&________.
            &_______.&______.&_____, &_________.
       &___________.&____________.&__________.&________.
     &_______.&______.&_____, &____.&_________.&___________.
 &____________.&__________.&________.&_______.&______.&_____, &___.
&____.&_________.&___________.&____________.&__________.&________.
             &_______.&______.&_____, &__.&___.
         &____.&_________.&___________.&____________.
     &__________.&________.&_______.&______.&_____,&_.&__. &___.&____.
&_________.&___________.&____________.&__________.&________.&_______.
                      &______.&_____);sub _
     {return "@_[12] @_[30]@_[31] @_[30]@_[13] @_[25]"}
sub ____________{return "@_[6] @_[15] @_[1]-@_[39]@_[13] @_[25]"}
   sub ___{return "@_[10] @_[37] @_[1]-@_[28]@_[13] @_[25]"}
                     sub __________
         {return "@_[5] @_[38] @_[33] @_[25]"}
sub _____{return "@_[0] @_[16] @_[14] @_[1] @_[22] @_[24] @_[25]@_[25]
+"}
       sub ________{return "@_[4] @_[23]@_[13] @_[19] @_[25]"}
                     sub _______
          {return "@_[3] @_[34] @_[18] @_[25]"}
    sub ______{return "@_[2] @_[32]@_[20] @_[40] @_[25]"}
sub _________{return "@_[8] @_[35] @_[1]-@_[27]@_[13] @_[25]"} 
     sub ____{return "@_[9] @_[36] @_[21]@_[13] @_[25]"}
                    sub ___________
     {return "@_[7] @_[17] @_[1]-@_[26]@_[13] @_[25]"}
    sub __{return "@_[11] @_[29]@_[31] @_[29]@_[13] @_[25]"}
@_=('first', 'second', 'third', 'fourth', 'fifth', 'sixth', 'seventh',
     'eightth', 'nineth', 'tenth' ,'eleventh', 'twelfth');$i=0;
 foreach (@a){print reverse(("\n",' ...','me',' to ','gave',' love ',
                         'true','my ',
                        ' christmas ','of'
                         ,' day ',@_[$i]
                         ,'the ','On '))
                         ;sleep(2);print
                             ;$i++;}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.