Select Code to Download

<FILE>; # ignore first line
my @words = (A, C, G, T); #letters to search
...
         keys %word_list;

print "word $_->[0] = $_->[1]\n" for @pairs;