#!/usr/bin/perl

use v5.12;

our %daten;


sub datensuchen{
    print "\nLink suchen (Enter = Beenden)\n";
    my $notiz = <STDIN>;
    if ($notiz == "\n" or $notiz == ""){
        return};
    if (exists $daten{$notiz}){
        print "\n$daten{$notiz}\n";datensuchen();}
    else {
        print "\nNicht gefunden !!\n";datensuchen();}
    datensuchen();
}

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

# main
datenladen();
datensuchen();