my %ok;
$ok{ ($a) x 4 } = 1;
if($ok{$b, $c, $d}){
# ...
}
#まッ、いろいろな方法があるって事で