Subarray

my @big   = ^1000000;
my @small = 50 .. 55;

multi comp([], @) { True }
multi comp(($f, *@rest), ($ where * === $f, *@rest2)) {
    comp(@rest, @rest2)
}
multi comp($, $) { False }

sub subarray(@small, @big) {
    for 0 .. (@big - @small) {
        return True if comp @small, @big[$_..$_+@small]
    }
    False
}

say subarray @small, @big