perl grep problem ...

[wblock]

Hallo an alle ....

Mein versuch ist es eine dynamische Suchliste zu erstellen und sie
grep zu übergeben. Funktioniert leider nicht.
Hat jemand eine Idee, wie sowas geht?

my @myNames = ('Jacob', 'Michael', 'Joshua', 'Matthew', 'Alexander', 'Andrew');

my $Names="Jacob,Michael,Joshua,Matthew,Alexander,Andrew";

my $search="";

my @ListCriterion = split(/,/, $Names);

my $a=3;

while ($ListCriterion[$a]){
$search=$search."/^".$ListCriterion[$a];
if ($a ne @ListCriterion -1) {$search=$search."/ || ";}
$a++;
}

print $search."\n";

#************** Und hier das Problem *********
my @grepNames = grep( $search, @myNames);
#*********************************************

print $grepNames[0]."\n";
print @grepNames."\n";