#!/usr/bin/perl
use strict;
use warnings;


main('adressbuch.txt');
exit;



sub main {
    my ($adressdatei) = @_;
    

    # adressdatei einlesen
    my $adressen = adressdatei_einlesen($adressdatei);

    # Benutzer begrüßen, Auswahlmenue
    start_gruss();
    auswahlmenue($adressen);
   
} # sub main


sub adressdatei_einlesen {
    my ($adressdatei) = @_;

    # ...

} # sub adressdatei_einlesen


sub start_gruss {

    # ...

} # sub start_gruss


sub auswahlmenue {
    my ($adressen) = @_;

    while (1) {
        # Auswahl ausgeben: 1) Suchen, 2) Beenden
        # ...
  
        # Benutzerwahl abfragen
        # ...

        # Abhängig von der Benutzerwahl reagieren
        # ...
    }
} # sub auswahlmenue