#!/usr/bin/perl

use warnings;
use strict;

my $blankname = "07A-160A";
my @array     = ("05A-160A", "06A-160A", "07A-160A", "08A-160A", "09A-160A", "10A-160A", "13A-160A");

for (my $i = 0; $i <= $#array; $i++) {
   print "Gefunden.\n" if $blankname eq $array[$i];
} # for