Assuming that you've done a use Search::Dict; and $fh is an open filehandle to your file then (untested code written by drunk person alert):

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;
  }
}
[download]