$ time perl lookup_ids.pl 
$VAR1 = [
          3,
          21,
          93,
          40000
        ];

real    0m0.579s
user    0m0.451s
sys     0m0.051s