in reply to problem with perl "for" loop
for($left = 0; $left < $#hold; $left++) { if($hold[$left] == $hold[$left+1]) { return 0; } } [download]