1:    my %adressen;
 2:
 3:    open ADRESSEN, 'adressen.dat' or die "Konnte Datei adressen.dat nicht öffnen: $!\n";
 4:    while (<ADRESSEN>) {
 5:      next if /^#/;
 6:      my ($kuerzel, $name, $str, $email, $buecher) = split(/\s*\|/, $_, 5);
 7:      $adressen{$kuerzel} = {
 8:                             Name    => $name,
 9:                             Str     => $str,
10:                             EMail   => $email
11:                            };
12:      $buecher =~ tr/()//d;
13:      push @{$adressen{$kuerzel}->{Buecher}}, split /\|/, $buecher;
14:    }
15:    close ADRESSEN;