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

foreach(@array)
      {
    my $element = $_;
      if(grep (/$element/,$muster ))
        {
               print "$element gefunden in $muster\n";
               last;
            }
          else {
               print " nicht gefunden \n";
               }
       }