sub extract_seed_page($$$\@){
  my ($filepath, $keyword, $percent, $phrase_list_ref) = @_;