The above code hardly even resembles Perl as I know it. Got a lot to learn...
I've heard at work they use 'map' regularly (I wouldn't say 'frequently'--something about it not processing efficiently with mysql in some contexts). I'll need to read up on that.
I can't say I'd choose cowdawg's approach for this question, because map is a bit ill suited for this specific problem. Athanasius's is probably the most idiomatic while still being easy to understand.