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

real    0m0.693s
user    0m0.553s
sys     0m0.061s