Well, I don't know about "horribly inefficient", but it's certainly not the fastest way to do it. broquaint's solution would be faster.

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg