[perl] что за функция scalar?

Принудительно вычисляет выражение в скалярном контексте. В перле, знаете ли, результат выражения зависит от контекста. Например, список в скалярном контексте - длина этого списка.

ну там все прозрачно
заставляет выражение выполнятся в скалярном контексте и возвращает результат выражения

Тогда в чём смысл подобной проверки?

while( (scalar @array) ){

}

Пока в массиве остались элементы?

ну вот массив занули - узнаешь. Хотя конечно тупняк, но перл всегда мог одну и ту же задачу решать разными способами.

возвращает длину списка @array
видимо в цикле отщипывается по одному элементу

Гм. Да. Это я пожалуй туплю. Всем спасибо.