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