Select Code to Download

# build_db.pl - used to update the word list database

...
    eval join '', 'push @{$dict', (map {"{$_}"} split //, $_), "{words
+}}, +'$_';";
}
store \%dict, 'my_dict.db';

# scramble.pl - used to play the game

...
}
sleep 1;  # Used to change focus to browser window
SendKeys($_ . "~", 17) for sort {length($b) <=> length($a)} keys %sol;