いくつかの条件に不一致の処理

{$CNF::pda{'browser'}{'agent'}{'list'}}というユーザーエイジェントのリストがあり、
そこに７つ登録されていて
7つすべてが条件不一致の場合に
以下のような構文だとホームというリンクが7回表示されてしまい困っています。
７つの条件不一致であった場合でも
1回しか（ホームへのリンクを1回しか表示しない）実行ようにしたいのですが
どのようにしたらいいのか具体的に教えてください。
どうかよろしくお願いいたします。

foreach (@{$CNF::pda{'browser'}{'agent'}{'list'}}) {
length($_) or next;
unless (index($ENV{'HTTP_USER_AGENT'}, $_) != -1) {
push(@menu,
qq|<a class=Menu href="$CNF::base{'home'}{'url'}">ホーム</a>|);}}

No.3 回答者： Tacosan 回答日時： 2012/07/18 08:16

はたまた last

この回答へのお礼

何度もありがとうございます。
すべてやってみたことなのですが
すべてダメでした。

お礼日時：2012/07/18 08:20

No.2 回答者： Tacosan 回答日時： 2012/07/18 01:17

あるいはフラグ

No.1 回答者： Tacosan 回答日時： 2012/07/18 00:12

grep?