#!/usr/bin/perl
use v5.12;
use strict;
use warnings;

my %daten;

sub datensuchen{
    print "\nLink suchen (Enter = Beenden)\n";
    my $notiz = <STDIN>;
    if ($notiz eq "\n" or $notiz eq ""){
        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(); 
[code=perl]