push( @a, $x, $y)			splice(@a, $#a+l, 0, $x, $y)
рор(@а)					splice(@a, -1)
shift(@a)				splice(@a, 0, l)
unshift(@a, $x, $y)			splice(@a, 0, 0, $x, $y)
$a[$x] = $y				splice(@a, $x, 1, $y);

sub aeq  { # сравнение двух списков
  local(@a) = splice(@_, 0, shift);
  local(@b) = splice(@_, 0, shift);
  return 0 unless @a == @b;          # длина одинакова?
  while (@a) {
     return 0 if pop(@a) ne pop(@b);
  }
  return 1;
}
if (&aeq($len, @foo[l..$len], 0 + @bar, @bar)) { ... }