#!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";
			}
		}
	}
}