#!/usr/bin/perl -w

use strict;

print "Geben sie die Input-Datei ein : ";
my $kyd = <STDIN>;
chomp $kyd;

open(STD, "student.txt") or die;
my %student;
while(){
chomp;
  if(/^(\d+)\t(.+)$/){
    my $mat_nr = $1;
    my $std_name = $2;
    $student{$mat_nr} = $std_name;
  }
}

open(DB, "datenbank.txt") or die;
my $hit;
my %seen;
my $auswahl;
$auswahl = "Class Auswahl: \n";

while(){
  chomp;
  if(/$kyd\t(\d*)/i){
    $hit = $1;	
    next if defined $seen{$hit};
    $seen{$hit} = 1;
    $auswahl .= "$hit $student{$hit}";	
  }
}
print "$auswahl\n";