time perl sh.pl > sh.txt

real	0m3.770s
user	0m3.692s
sys	0m0.074s

##</code><code>##

time perl sh.pl > sh.txt

real	0m4.192s
user	0m4.170s
sys	0m0.015s