Select Code to Download

use strict;
use warnings;
...
seq(12) == @array[7..18]=(31,61,62,63,64,65,66,67,70,71,72,73)
seq(13) == @array[6..18]=(15,31,61,62,63,64,65,66,67,70,71,72,73)
seq(14) == @array[1..14]=(3,4,5,6,8,15,31,61,62,63,64,65,66,67)

sub find_seq {
    my ($num,$array)=@_;
...
    }
    return ( $min_start, $min_end );
}