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

##</code><code>##

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