(;'-')ﾉ ↓こんな風にしたんですけど、解決しません。どうしましょう。
bbs.cgi :
$adminname = '管理人';
$adminnames[0] = '管理人';
$adminnames[1] = '管理人';
$adminnames[2] = '管理人';
$adminnames[3] = '管理人';
$adminnames[4] = '管理人';
$adminnames[5] = '管理人';
$adminnames[6] = '管理人';

bbsreg.cgi :
foreach ( @adminnames ) {
	if( $admincheck eq $_ ) {
		$FORM{'username'} = "$adminname（騙り）";
	}
}