@liste = (1, 5, 8, 15, 67); #Mal nen Auszug, kann durchaus VIEL länger sein
$Wert = 23;
foreach (@liste)  {
  if ($_==$Wert) {
    # irgendwas tun
  }
  else {
    #was andres tun
  }
}

my @array = qw(1 2 3 23 7 26);
my $wert = 23;

if(grep{$_ == $wert}@array){
  print "yes\n";
}
else{
  print "no\n";
}

#!/usr/bin/perl

use strict;
use warnings;

use Perl6::Junction qw/any/;

my @array = qw(1 2 3 23 7 26);
my $value = 23;

(any(@array) == $value) ? print "yes\n" : print "no\n";

foreach (@liste)  {
 if ($_==$Wert) {
   # irgendwas tun, z.B. $gefunden = 1;
   last; #abbruch
 }
}