>525
サンプル（listは関数名と同じなので、配列名をLISTとしとくです）

while(list($key, $val) = each($LIST)) {
if (ereg("あいう", $val)) {
print "$key";
}
}

結果
acef

ﾐｽあったらｺﾞﾒｿ。