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.