perl

[nataraj]

Как бы вы записали на перле, "ко всем элементам списка кроме первого добавить в начале пробел"?

Получается что-то вроде
$a=[shift @$a, map {" $_"} @$a];
что работает, но как-то очень сильно попахивает write-only выражением... Особенно когда у нас $a не $a, а $data->{babuka_strashnaya}->{zakaryukf}