#!/usr/bin/perl

use warnings;
use strict;

open(my $fhListe, "<Liste.txt") or die $!;

my %pnr;

while(my $zeile = <$fhListe>) {

   chomp $zeile;

   my @felder = ();
   @felder    = split(/ /, $zeile);

   $pnr{$felder[0]} = $felder[1];

} # while

close($fhListe) or die $!;

##############################

open(my $fhDatei,    "<Datei.txt")    or die $!;
open(my $fhErgebnis, ">Ergebnis.txt") or die $!;

while(my $zeile = <$fhDatei>) {

   chomp $zeile;

   my @satz = ();
   @satz    = split(/ /, $zeile);

   my $ergListe = "!LEER!";
   $ergListe    = $pnr{$satz[0]} if defined $pnr{$satz[0]};

   print $fhErgebnis $ergListe."-".sprintf("%03d", $satz[2])."-".sprintf("%05d", $satz[4])."/000.00\n";

} # while

close($fhDatei)    or die $!;
close($fhErgebnis) or die $!;

print "Fertig.\n";

1;