#!usr/bin/perl
# STDIN, STDOUT, Hashes Adresse

use strict;
use utf8;
binmode(STDOUT , ":encoding(cp850)" );
binmode(STDIN , ":encoding(cp850)" );

my %Datenbank = (
'Hubert' => ["Hans Hubert, Hubertusstr. 11, Huberstadt, Tel: 0684-65293"],
'Stein' => ["Gero Stein, Steinstr. 1, Steinfeld, Tel: 01234-567"],
'Baum' => ["Lana Baum, Baumallee 9, Eichenhausen, Tel: 23456-789"],
'Halm' => ["Rike Halm, Grüner Weg 72, Bonnstadt, Tel: 0228-33333"],
'Garten' => ["Eric Garten, Gartengasse 203, Gartenheim, Tel:09123-12345"],
'Wolle' => ["Leila Wolle, Schafpfad 2, Mähdorf, 0123-456"]
);

print "\nBitte geben sie den Nachnamen der gewünschten Adresse ein:\n"; 
while (my $Eingabe = <STDIN>) 
{   
        chomp ($Eingabe);
        if
                ( 
                $Eingabe eq "alle Adressen")
        {
                        foreach my $key (sort keys %Datenbank) {
                                print $Datenbank{$key}->[0],"\n"; # Adresse ausgeben
                        }
        }
        elsif  (
                $Eingabe ne ""
                )
        {
                if 
                (
                exists $Datenbank{$Eingabe}
                )
                {
                        print "Sie haben folgende Adresse ausgewählt: $Eingabe\n";
                        print $Datenbank{$Eingabe}->[0],"\n"; # Adresse ausgeben
                }
                else 
                {
                        print "Ihre gewünschte Adresse befindet sich leider nicht in der Liste\n";
                        print "Bitte Daten eingeben: ";
                        my $Daten = <STDIN>;
                        chomp ($Daten);
                        if ( $Daten ne "" ) 
                        {
                                $Datenbank{$Eingabe}->[0] = $Daten;
                                print "Ihre neue Adresse wird in die Liste eingefügt\n";
                        }
                }
        }
}