А какой вывод ты хочешь получить то?

Если непонятно: оператор my() (системная функция) объявляет переменную и устанавливает её в лексической области видимости.
Лексическая область видимости - это временная память,куда сохраняются имена переменных.Значения же переменных обычно сохраняются в стеках.
В общем,переменные лексической области видимости называют в других языках программирования как локальные,но,в отличие от других языков, в PERL пакетные переменные(глобальные) и локальные(пеерменные лексической области видимости) не конфликтуют между собой хотя бы из-за лексемы ЗЫ: Знаю,что наговорил много лишнего,но тем не менее...

Всмысле какой ? в STDOUT(на экран).Просто использовние perl -e меня меньше напрягает,чем открывать закрывать фаил...это что-то вроде теста.

В смысле мне непонятно:

ааа...)))Ну,в такой вид:


х ... ... ...
х
х
х
х

... я пометил следующую колонку

Вроде того?
perl -e "for(1..5) {print $/ unless $_ % 1; print 'X ' x 2}"

Оп,работает...а почему мой не работает не пойму.Всё же правильно вроде.

ЗЫ: А что такое print $/ unless $_ % 1; ?

Да это я что-то не то сделал, "unless $_ % 1;" можно убрать. Просто делает перевод строки каждую итерацию.