$ time ./lr.pl

real    1m0.706s
user    1m0.416s
sys     0m0.080s

$ time ./fu.pl

real    1m0.791s
user    1m0.326s
sys     0m0.220s