<div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">join, кстати, лишний. без него все работает:<br>
sub say { print @_, "\n"; }</blockquote><div>Не совсем лишний, а скорее чуток неправильный<br>Вот тут <a href="http://perl6.ru/2006/09/">http://perl6.ru/2006/09/</a> написано<br><br><div style="margin-left: 40px;">
my @array = 1..5;<br>say @array.reverse;<br>Этот пример напечатает 5 4 3 2 1<br></div><br>Следовательно <br><div style="margin-left: 40px;">sub say { print join(" ", @_)."\n" }<br></div>а ещё лучше<br>
<div style="margin-left: 40px;">sub say<br>{<br> local $\ = "\n";<br> print join " ", @_;<br>}<br><br></div><br></div></div>