Obviously my solution is superior ;-)

That's one of the nice things about perl.... so many ways to code everything and so many little tweaks you can do to improve performance.