## Unterprogramme

sub namenladen {
open (ADRESSEN, "<", "adressen.txt")
	while (my $adressen = <ADRESSEN>) {
	my @adressen = split ("\t" $adressen);
	@adressen = keys(%adressen);
	}


sub namensuchen {
my ($str1, $str2) = @_;

if (exists($name{$eingabe})) { return 1; }
else {
print "$str1 und $str2 sind verschieden!\n";
return 0; }
}

##Hauptprogramm

namenladen();
print "Geben Sie eine 1 ein, wenn Sie einen Namen suchen möchten und eine 2 um das Programm zu beenden!";
$name = <>;
chomp $name;
if  ($name == 2) {
	print "Sie haben das Programm beendet!\n ";
	}
elsif ($name == 1) {
	print "Bitte geben Sie den Namen ein, den Sie suchen möchten!\n"; 
	$eingabe = <>;
	chomp ($eingabe)
	while (namensuchen($name, $eingabe)) {
	print "Der Name existiert nicht. Bitte geben Sie einen anderen Namen ein! ";
	$eingabe = <>;
	chomp ($eingabe);
	}
}