sub match {
  my $string = quotemeta(shift);
  Search::Dict::look($fh, $string);
  my $next_line = <$fh>;
  if ($next_line =~ /$string: (\d+\s*)+/) {
    return split /\s+/, $1;
  }
}