樋口先生.
ご回答ありがとうございます.
樋口先生の仰る通り,
my $win = gui_window::word_ass->open;
$win->{direct_w_e}->insert('end', $win->gui_jchar('父') );
$win->search;
の3行でサンプルのような関連語検索の自動実行を行うことができました.
続きましては, 関連語検索の結果として得られた抽出語を配列に格納するなりして,
GUIを通さない場合の利用の仕方を考えております.
実装途中で再度お世話になる可能性がありますが,
その際には是非またご教授いただけれたらと思います.
お忙しい中お時間を取らせてしまい申し訳ありません. ありがとうございました.