http://www.perlmonks.org?node_id=83867

I've been fiddling around with mobiles recently and playing with perl to get it to give me a list of possible words I could use instead of the number. Who can come up with the shortest sub that would calculate the possible combinations for a given number, check them against /usr/share/dict/words, and return the possibles as a list?

I have to say, my attempt is pitiful and it's not worth posting, but I'd be interested to see other people's.

BTW, just in case anyone's wondering, this is not a homework assignment or anything - I just think it's an interesting puzzle.