But... but.... when I ran it I got:

--$  perl -w monk.pl
Useless use of log in void context at monk.pl line 4.
Useless use of sort in void context at monk.pl line 3.
Name "Reach::enlightenment" used only once: possible typo at monk.pl l
+ine 5.
Name "main::one" used only once: possible typo at monk.pl line 2.
Name "main::thoughts" used only once: possible typo at monk.pl line 3.
Name "main::working" used only once: possible typo at monk.pl line 3.
Argument "1058376091re" isn't numeric in log at monk.pl line 4.
Use of uninitialized value in concatenation (.) or string at monk.pl l
+ine 5.
Use of uninitialized value in concatenation (.) or string at monk.pl l
+ine 5.
--$  perl -w -Mstrict monk.pl
Global symbol "$one" requires explicit package name at monk.pl line 2.
Global symbol "$thoughts" requires explicit package name at monk.pl li
+ne 3.
Global symbol "$working" requires explicit package name at monk.pl lin
+e 3.
Execution of monk.pl aborted due to compilation errors.
[download]

I didn’t say it compiles under strictures, and I don’t see you getting any errors without them.

Makeshifts last the longest.

Just bustin' on ya... take it easy... nice poetry! ;-)

---

Peter L. Berghold	Brewer of Belgian Ales
Peter@Berghold.Net	www.berghold.net
Unix Professional