поиск подсписка в списке

[ocehb]

задача -- найти начало подмассива в массиве (номер элемента)

sub find ($$) { return scalar split $",(split "@{$_[1]}","@{$_[0]}")[0] }

проверка:

# perl -le '@a = qw|a b c d e f g h i j k|; @b = qw|d e f|;
    sub find ($$) { return scalar split $",(split "@{$_[1]}","@{$_[0]}",2)[0]; }
    print find (\@a,\@b)'
3
#

в случае сложностей поиграть с $".