http://qs1969.pair.com?node_id=336016


in reply to problem with perl "for" loop

well, your loop iterates one too much.
Fix: 
for($left = 0; $left < $#hold; $left++)
{
    if($hold[$left] == $hold[$left+1]) { return 0; }
}

[download]

In Section Seekers of Perl Wisdom