sub searchCloser{
	my @start=split//,$_[0]; my (@temp,@r,@m,$i);
	@temp=@start,splice(@temp,$_,1,'\D'),$m[$_]=join('',@temp)for(0..$#start);
	$i=$_,@r=(@r,grep(/^$i$/,@dict))for values@m;
	@r
}