Help for this page
my $pB; for( $pB = $topB+1; $pB < $topC && $d[ $pB ] < $temp; $d[ $pB-1 ] = $d +[ $pB++ ] ) { };
my $pB; for( $pB = $topB+1; $pB < $topC && $d[ $pB ] < $temp; $d[ $pB-1 ] = $d +[ $pB ], $pB++ ) { };