<to>CK1</to> <subj>Wozu Referenzen ?</subj>

[Philipp Hasenfratz]

%h1 = ('Name' => 'Hasenfratz',
       'Vorn' => 'Philipp');
%h2 = ('Name' => 'will nicht',
       'Vorn' => 'genannt sein');
@names = (%h1, %h2);

foreach (@names) {
   if ($_->{Name} =~ /$suche_nach/i) {
      print $_->{Name} . ", " . $_->{Vorn} . "\n";
   }
}

tät wohl auch mit grep funzen, wa??? :-))

Viele Grüsse

Philipp