#!/usr/bin/perl

use warnings;
use strict;

my %daten;

sub datensuchen{
    print "\nLink suchen (Enter = Beenden)\n";
    my $notiz = <STDIN>;
    chomp($notiz);

    if ($notiz eq ""){
        return};
    if (exists $daten{$notiz}) {
        print "\n$daten{$notiz}\n";
    } else {
        print "\nNicht gefunden !!\n";
    }
    datensuchen();
}

sub datenladen{
    open (my $FH, '<', 'links.txt') || die;
    my @liste = <$FH>;
    close $FH;
    chomp(@liste);
    for (my $i = 0; $i <= $#liste; $i += 2){
        $daten{$liste[$i]} = $liste[$i+1];
        $daten{$liste[$i+1]} = $liste[$i];
    }
}

# main
datenladen();
datensuchen();