sub get_words {
    my $dict = Net::Dict->new('dict.org');
    my $term = $wordbox->get;
    my $h = $dict->define($term);
    my $result;
    my $n = 0;   #(update: left line this out earlier, but see below)
    foreach my $i (@{$h}) {
        my ($db, $def) = @{$i};
        print join "", "$db: $term:\n", map { sprintf("%.2x $_\n",ord()) } split( //, $def );
        $list->insert('end', "$db: $term");
        $defs[$n] = $def;
        $n++;
    }
}