perl에서 index() 와 같이 작동하지만 인자는 배열인 거. https://gist.github.com/am0c/dc65b37eca606e74e760 에 offset 추가

index_arr.pl

sub index_array {
    my ($array, $key, $offset) = @_; 
    my $i = 0;
 
    for my $i ($offset .. $#$array) {
 
        my $is_eql = 1;
        for my $j (0 .. $#$key) {
            last if $i + $j > $#$array;
            if ($key->[$j] ne $array->[$i + $j]) {
                $is_eql = 0;
                last;
            }   
        }   
 
        return $i if $is_eql;
    }   
 
    return -1;
}