my $vergleich = 4;
my @a = (3,4,14,43);

#if ( grep { $vergleich == $_ } @a ) {
if ( first { $vergleich == $_ } @a ) {
  # ... plan A
}
else {
 # ... plan B
}