for (my $pos2 = $pos1; $pos2 < $count; $pos2++) {