my @list = qw/3 7 4/;
print (sort{$a<=>$b}@list)[0];

これで上手くいきません。並べ変えた0番目の要素を表示したいのです。
別配列に一旦入れるのは避けたいです。
確かナイスな方法があったような気がするのですが思い出せません。
お願いします。