hey, check my code below, i tested it with a file with 3000 lines in it. time cat gen.txt | perl -w gen.pl says:

real    0m0.139s
user    0m0.109s
sys     0m0.000s
[download]

if you're still looking for an answer...