$ time perl lookup_ids.pl 

real    0m0.750s
user    0m0.644s
sys     0m0.061s