view release on metacpan or  search on metacpan

demo/demo_numlist.pl  view on Meta::CPAN

use Perl6::Form;

@reason = (
	"Three witches told me I was going to be king.",
	"I was busy explaining wherefore am I Romeo.",
	"I was busy scrubbing the blood off my hands.",
	"Some dear friends had to charge once more unto the breach.",
	"My so-called best friend tricked me into killing my wife.",
	"My so-called best friend tricked me into killing Caesar.",
	"My so-called best friend tricked me into taming a shrew.",
	"My uncle killed my father and married my mother.",
	"I fell in love with my manservant, who was actually the disguised twin sister of the man that my former love secretly married, having mistaken him for my manservant who was wooing her in my behalf whilst secretly in love with me.",
	"I was abducted by fairies.",
);

print "I couldn't do my English Lit homework because...\n\n";

lib/Perl6/Form.pm  view on Meta::CPAN

                   '';
    }

which might produce:

    I couldn't do my English Lit homework because...

         10. Three witches told me I was going to be
             king.

          9. I was busy explaining wherefore am I Romeo.

          8. I was busy scrubbing the blood off my
             hands.

          7. Some dear friends had to charge once more
             unto the breach.

          6. My so-called best friend tricked me into
             killing my wife.

          5. My so-called best friend tricked me into
             killing Caesar.