#!/usr/bin/perl

use warnings;
use strict;

my %dict;
@ARGV = 'words.txt';

while (<>) {
    chomp;
    my $word = $_;
    tr/gq9xz2mwbhk68ilj1acenosu05/gggzzzmmbbbbbiiiiaaaaaaaaa/;
    $dict{$_} .= "$word ";
}

while (<DATA>) {
    chomp;
    my $word = $_;
    tr/gq9xz2mwbhk68ilj1acenosu05/gggzzzmmbbbbbiiiiaaaaaaaaa/;
    my $matches = $dict{$_} || '~';
    print "$word: $matches\n";
}

__END__
sk0oid