> これを、「今いる場所の探索指定のみ表示させる」
> もしくは、今いる場所によって、中のdatファイル指定のみ変える
> といったような方法はないでしょうか。

次のような感じではどうでしょうか。

my $num = $tw == 4 || $tw == 5 ? '2' : $tw == 6 || $tw == 7 ? '3' : $tw == 8 ? '4' : $tw == 9 || $tw == 10 ? '5' : ''; # mode値に付く数字の計算
&input('radio', 'mode', "find_item$num", ' checked', ('新校舎', '旧校舎上階', '旧校舎', '深層部', '最深部')[$num eq '' ? 0 : $num - 1] . '探索　　探索回数：'); # 探索場所の表示
if($hp > 1){
　　print '<select name=t_max>';
　　foreach(1 .. $hp - 1){
　　　　print qq|<option value=$_>${_}回\n|;
　　}
　　print '</select><br>';
}
else{
　　print ' 0回<br>';
}

▼関連発言
│
└◆824:街ごとにアイテム変化（探索回数指定付） [織江] 10/15 14:17
　└◆825:Re:街ごとにアイテム変化（探索回数指定付） [moon] 10/15 19:51
　　└◆826:有難うございます！！ [織江] 10/15 23:07
　　　└◆833:コンタクト後の探索エラー [織江] 10/17 23:47
　　　　├◆834:つけたし。 [織江] 10/18 00:07
　　　　│└◆836:Re:つけたし。 [moon] 10/18 00:24
　　　　│　└◆837:Re[2]:つけたし。 [moon] 10/18 00:31
　　　　│　　└◆838:さらに追記 [moon] 10/18 00:35
　　　　└◆835:Re:コンタクト後の探索エラー [moon] 10/18 00:16
　　　　　└◆842:Re[2]:コンタクト後の探索エラー [織江] 10/18 20:49
　　　　　　└◆843:Re[3]:コンタクト後の探索エラー [moon] 10/18 23:30
　　　　　　　└◆844:今度こそ。 [織江] 10/19 01:11<-last