<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 @_, &quot;\n&quot;; }</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(&quot; &quot;, @_).&quot;\n&quot; }<br></div>а ещё лучше<br>
<div style="margin-left: 40px;">sub say<br>{<br>&nbsp;&nbsp;&nbsp; local $\ = &quot;\n&quot;;<br>&nbsp;&nbsp;&nbsp; print join &quot; &quot;, @_;<br>}<br><br></div><br></div></div>