The Mad Hatter has already pointed out the problem. Also it is better to return array ref instead of array. By doing that, you will gain much better performance. If you return array, Perl needs to duplicate the entire array, and that takes time.