$ time perl list.pl in >/dev/null

real    0m2.150s
user    0m2.136s
sys     0m0.004s
$ time python list.py in >/dev/null

real    0m1.426s
user    0m1.420s
sys     0m0.000s