my $muster ="1-5-4-bla2-sles8";
my @array =("i486-glibc22-linux","sles8");

foreach my $element(@array) {
      if($muster =~ /$element/) {
    # oder
    #  if(index($muster,$element) != -1){
              print "$element gefunden in $muster\n";
              last;
      }
      else {
              print " nicht gefunden \n";
       }
}