my  $foobar='D';
my  @array=('A', 'B', 'C', 'D');
if ( grep {$_ eq $foobar } @array ) {
    #yadda yadda
};