$ time ./lr.pl

real    0m21.139s
user    0m20.279s
sys     0m0.040s

$ time ./tm.pl

real    0m3.935s
user    0m3.585s
sys     0m0.300s