I can compare this manually with for loops, but i want to know, is there any module to perform this task.

I don't think a module is required for this. The straight forward solution is probably best. It doesn't require "loops" (plural), just one. Iterate through the indices of your short array and compare with the elements at the same indices in the large array.

sub is_left_slice {
    my ($some, $all) = @_;
    
    $some->[$_] eq $all->[$_] or return 0 for 0 .. $#$some;
    
    return 1;
}
[download]

-sauoq
"My two cents aren't worth a dime.";