#!/usr/bin/perl

use strict;
use warnings;

my %database = (
  'TEST' => [ "Testdorf", 12345, "Testweg 99" ],
  'test' => [ "Teststadt", 54321, "Teststrasse 9" ],
);

sub Eingabe_Holen {
	my $eingabe = <STDIN>;
	chomp($eingabe);
	return if length($eingabe) == 0;
	return $eingabe;
}

sub say { print @_,"\n"; }

while (1) {
	say "
(1) Abfrage
(2) Erfassung
(X) Ende";
print "Auswahl: ";
	my $eingabe = Eingabe_Holen();
	last if length($eingabe) == 0 
		 or uc($eingabe) eq 'X';
	
	Abfrage() if $eingabe =~ /^1/;
	Erfassung() if $eingabe =~ /^2/;
}

sub Abfrage {
	print "Namen eingeben (* um alle abzufragen): ";
	my $wert = Eingabe_Holen();
	say "Datensatz wird gesucht...", "\n";
	
	if ($wert eq "*") {
		do {
			say "------", 
				join "\n", "", @{$database{$_}},
				"------";
		} for keys %database;
	}
	elsif (exists $database{$wert}) {
		say "Datensatz: ", 
			  join "\n",@{$database{$wert}}; 
	} else {
		say "Datensatz nicht gefunden!"
	}
}

sub Erfassung {}