#!/usr/bin/perl

                              @_
                             =('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', 'GOLD', 'lay', 'and', ',', '.', '...'); @a=(&_____,
      &______.&_____,&_______.&______.&_____,&________.
   &_______.&______.&_____, &__________.&________.&_______.
  &______.&_____, &____________.&__________.&________.&_______.
 &______.&_____, &___________.&____________.&__________.&________.
            &_______.&______.&_____, &_________.
       &___________.&____________.&__________.&________.
     &_______.&______.&_____, &____.&_________.&___________.
 &____________.&__________.&________.&_______.&______.&_____, &___.
&____.&_________.&___________.&____________.&__________.&________.
             &_______.&______.&_____, &__.&___.
         &____.&_________.&___________.&____________.
     &__________.&________.&_______.&______.&_____,&_.&__. &___.&____.
&_________.&___________.&____________.&__________.&________.&_______.
                      &______.&_____);sub _
     {return "@_[12] @_[30]@_[31] @_[30]@_[13]@_[41] @_[25]"}
sub ____________{return "@_[6] @_[15] @_[1]-@_[39]@_[13]@_[41] @_[25]"
+}
   sub ___{return "@_[10] @_[37] @_[1]-@_[28]@_[13]@_[41] @_[25]"}
                       sub __________
           {return "@_[5] @_[38] @_[33]@_[43] @_[25]"}
sub _____{return "@_[0] @_[16] @_[14] @_[1] @_[22] @_[24]@_[42] @_[25]
+@_[25]"}
       sub ________{return "@_[4] @_[23]@_[13] @_[19]@_[41] @_[25]"}
                     sub _______
          {return "@_[3] @_[34] @_[18]@_[41] @_[25]"}
    sub ______{return "@_[2] @_[32] @_[20]@_[41] @_[40] @_[25]"}
sub _________{return "@_[8] @_[35] @_[1]-@_[27]@_[13]@_[41] @_[25]"}
     sub ____{return "@_[9] @_[36] @_[21]@_[13]@_[41] @_[25]"}
                    sub ___________
     {return "@_[7] @_[17] @_[1]-@_[26]@_[13]@_[41] @_[25]"}
    sub __{return "@_[11] @_[29]@_[31] @_[29]@_[13]@_[41] @_[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(3);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.