>$p=@_;дык если не ошибаюсь в $p будет число элементов массива @_
дык если не ошибаюсь в $p будет число элементов массива @_