@a=('A', 'B', 'C', 'D');
$b='D';
if (eval "if(\$b eq \"".(join"\"){return 1}if(\$b eq \"",@a)."\"){return 1}") {
    Print "It was there\n"
}