Faster version in perl