@list = grep {/hoge/} @list;
$a = $list[0];

を１行で書きたいのですが、どうすればイイですか？

@list = grep {/hoge/} @list;$a = $list[0];
以外で・・・