#!C:/Programme/Perl

use strict;
my $input='Input.csv';
my $output='Output.csv';
my $mapping='Input_mapping.csv';
my $zeileDaten;
my @arrayDaten;
my $inputDaten;
my @inputarray;

open MAPPING, "<$mapping" or die "Datei $mapping konnte nicht geöffnet werden";

while (<MAPPING>){
chomp;
 	#print "$_\n";
      $zeileDaten ="$_\n";
      @arrayDaten = split(/;/,$zeileDaten);
      push(@arrayDaten,$zeileDaten);
     
      
}
 
close(MAPPING);


#open OUTPUT, ">$output" or die "Datei $output konnte nicht geöffnet werden";
open INPUT, "<$input" or die "Datei $input konnte nicht geöffnet werden";

while (<INPUT>){

$inputDaten ="$_\n";
      @inputarray= split(/;/,inputDaten);
      push(@inputarray,$inputDaten);


}