sub aeq {       # compare two array values
	local(@a) = splice(@_, 0, shift);
	local(@b) = splice(@_, 0, shift);
	return 0 unless @a == @b;       # same len?
	while (@a) {
	    return 0 if pop(@a) ne pop(@b);
	}
	return 1;
}
if (&aeq($len, @foo[1..$len], scalar(@bar), @bar)) { ... }
