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

my @Auswahl;
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 "keys %hash\n";
		} }

	if (exists $Datenbank{$Eingabe}
		)
		
		{
		push (@Auswahl, $Eingabe);
		print "Sie haben folgende Adresse ausgewählt:@Auswahl\n";
		}
	else 
		{
		print "Ihr gewünschte Adresse befindet sich leider nicht in der Liste\n";
		}