#!/usr/bin/perl -w

while (<>) {
    chomp;
    if (/^[a-z]+$/) {
        $word = $_;
        tr/a-z/22233344455566677778889999/;
        push @{$words{$_}}, $word;
    }
}

for $k (sort {@{$words{$a}} <=> @{$words{$b}} || $a <=> $b} keys %words) {
    if (@{$words{$k}} > 1) {
        print "$k: ", join(" ", @{$words{$k}}), "\n";
    }
}