<div>Для полноты картины:</div><div><br></div><div>  say pop @{[ %r ]};</div><div><br></div><div>Ну а хороший вариант (уже предложили выше):</div><div><br></div><div> say [%r]->[1];</div><br><div class="gmail_quote">2012/7/31 Alessandro Gorohovski <span dir="ltr"><<a href="mailto:an.gorohovski@gmail.com" target="_blank">an.gorohovski@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Ilya Chesnokov <<a href="mailto:chesnokov.ilya@gmail.com" target="_blank">chesnokov.ilya@gmail.com</a>> писал(а) в своём письме Tue, 31 Jul 2012 19:45:04 +0300:<div class="im">
<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
31 июля 2012 г., 20:05 пользователь Alessandro Gorohovski<br>
<<a href="mailto:an.gorohovski@gmail.com" target="_blank">an.gorohovski@gmail.com</a>> написал:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
perl -e 'my %a = (a => 3); print ((%a)[1]);'<br>
</blockquote>
<br>
<br>
O, Класс!<br>
Премного благодарен.<br>
<br>
Да, это короче, чем я хотел<br>
(values %a)[0]<br>
</blockquote>
<br>
По-моему (values %a)[0] выглядит читабельнее.<br>
А самый читабельный вариант из предложенных предложил Alexander<br>
Onokhov. Вот так и надо писать код ;)<br>
</blockquote>
<br></div>
Возможно вы правы,<br>
но мне интересен был вариант без промежуточных переменных,<br>
поскольку в окончательном должно было быть так:<br>
<br>
say"Ok!" if [%a]->[1] > $value;<div class="HOEnZb"><div class="h5"><br>
-- <br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>С уважением,<br> Анатолий Шарифулин.<br>