if ( $suff[ $indices[ $index ] ] =~ /^$pattern/ ) {
        push @positions, $indices[ $index ] + 1;
    }
    else {
        last;
    }