$ time perl threads_yours.pl 
real    7m13.312s
user    2m1.484s
sys     10m8.982s

$ time perl threads_mine.pl 
real    0m2.209s
user    0m6.028s
sys     0m0.604s