効率を気にするならこういうのはどうですか？本文は１行。

sub test { foreach (@_) {return $_ if(/hoge/)} }

$a = &test (@list);