Ups, replied in a wrong place.
I tried the new code and it works really fast. Problem is there is an error with tell and it's all -1. Would be nice if I could just have ENST04000413399 as and ID but it does not mater that much. From Dumper
$VAR32564 = -1; $VAR32565 = '>ENST04000413399 ';