まあwhileでもいいけど、俺はハッシュが好き。

%hndle = (
'太郎' => '0123',
'花子' => 'abcd'
);

#管理人HNチェック
if ( $in{'name'} eq $master_name && $in{'pwd'} ne $pass ) {
&error("管理人のハンドルネーム使っちゃいけません")
}
#ﾊﾟﾝﾋﾟｰHNチェック
if ( exists($hndle{ $in{'name'} }) && $in{'pwd'} ne $hndle{ $in{'name'} } ) {
&error("他人のハンドルネーム使っちゃいけません")
}