for my $i (0..$#a) { # ueber alle Indices von @a

  my @ende = @a[$i..$#a]; # die End-Sequenz (ein sog. Array-Slice)
  my @anfang = @b[0..$#a-$i];

  if (@ende ~~ @anfang) { # ab 5.10 kann man auf diese Weise 2 Arrays vergleichen
     print "Uebereinstimmung ab Index $i\n";
     last;
  }
}