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