for (my $i = 0; $i < @array - $streak_len; $i++) {
    print "$array[$i] .. " . $array[$i] + $streak_len . "\n" if
        $array[$i+$streak_len] == $array[$i] + $streak_len;
}