> if ($tav eq 'poison') { $av = 'poison'; }

aliveとpoisonとdead状態しかない、かつ、探索で毒状態が回復しない、なら無駄処理という以外には問題が無いと思いますが、このスクリプトの場所は$tav eq 'isi'の下あたりが適当だと思われます。

> 罠にかかった後は、探索を中断したいのですが･･･
> どうしたら良いでしょうか？

複数探索の実現方法が定かでないので推測ですが、
　　}
}
1;
を、
　　　　last;
　　}
}
1;
に変更してみては？

# 書いておいてアレですが、個人的には絶対やりたくない方法です。
# サブルーチン外のループを脱出する目的のlast;は-wで表示される警告の対象なので。

▼関連発言
│
└◆679:度々申し訳ないです。。。 [戒] 07/29 04:02
　├◆680:Re:度々申し訳ないです。。。 [moon] 07/29 09:05
　│└◆681:Re[2]:度々申し訳ないです。。。 [戒] 07/29 18:04
　│　└◆682:Re[3]:度々申し訳ないです。。。 [moon] 07/29 19:23
　│　　└◆683:補足 [moon] 07/29 21:01
　│　　　└◆684:Re:補足 [戒] 07/29 22:58
　│　　　　└◆685:Re[2]:補足 [哲] 07/29 23:29
　│　　　　　└◆686:Re[3]:補足 [戒] 07/30 00:36
　│　　　　　　└◆687:Re[4]:補足 [哲] 07/30 02:20
　│　　　　　　　└◆688:Re[5]:補足 [戒] 07/30 19:42
　│　　　　　　　　└◆689:Re[6]:補足 [moon] 07/30 21:12
　│　　　　　　　　　└◆690:Re[7]:補足 [戒] 07/31 00:42
　│　　　　　　　　　　└◆691:Re[8]:補足 [哲] 07/31 02:02
　│　　　　　　　　　　　└◆692:Re[9]:補足 [moon] 07/31 09:00
　│　　　　　　　　　　　　└◆693:Re[10]:補足 [哲] 07/31 10:01
　└◆694:雑談(No.693への返信) [moon] 07/31 19:21
　　└◆695:Re:雑談(No.693への返信) [哲] 07/31 19:49
　　　└◆696:Re[2]:雑談(No.693への返信) [moon] 07/31 22:49
　　　　└◆697:Re[3]:雑談(No.693への返信) [哲] 08/01 00:11
　　　　　└◆698:Re[4]:雑談(No.693への返信) [moon] 08/01 09:14
　　　　　　└◆699:追記 [moon] 08/01 09:18<-last