[rml@box current]$ time perl BrowserUK.pl sample-input.txt
2
2002
1009

real	0m0.006s
user	0m0.002s
sys	0m0.004s
[rml@box current]$ time perl rml.pl sample-input.txt
2
1009
2002

real	0m0.028s
user	0m0.023s
sys	0m0.003s