Text::T9 

my @words = read_file('/usr/share/dict/british-english');
chomp @words;
@words = map { lc } @words;

print join(", ", t9_find_words( 5477, \@words ) ), "\n";
print join(", ", t9_find_words( 9355464866, \@words ) ), "\n";
print join(", ", t9_find_words( 28255263, \@words ) ), "\n";

kiss, lips, lisp
wellington, wellington
auckland