sub wordify($string) {
	my $results = [];
	$min_end = length($string)
	for $pos (0 .. $min_end) {
		for $len (1 .. length($string)) {
			$word = substr($string, $pos, $len)
			if exists($dictionary{$word}) {
				$min_end = $pos+$len if $pos+$len < $min_end
				$prefix = substr($string, 0, $pos) . " " . $word # needs special treatment for $pos = 0
				$endings = wordify(substr($string, $pos+1))
				push(@$results, map("$prefix $_", @$endings))
			}
		}
	}
	return [$string] unless @$results 
	return $results
}