>>797
なるほど！そうだな、言うとおりだ。
じゃ、こんなんはどうだ？

@array = ($a, $b, $c, $d);
if(grep{$array[0] != $_}@array[1..$#array]){
print "not ok \n";
}else{
print "ok \n";
}