note ChOas Hey!, <BR> <BR> I think it`s shorter, and I got no spaces...<BR> <BR> But I don`t know how to count...<BR> <BR> <CODE> sub g{%_=map{abs($_[-1]-$_[$_]),$_}(0..@_-2);$_[$_{(sort{$a<=>$b}keys%_)[0]}]} </CODE> <BR> GreetZ!,<BR><UL>ChOas</UL> <BR> <FONT SIZE="1">print "profeth still\n" if /bird|devil/;</FONT> 83923 83923