open A, '<Partnerliste_05_13.csv' or die $!;
open B, '>neu.csv' or die $!;
while (<A>) {
    print B;
}

my $infile = 'neu.csv';
open (my $infile_fh, '<', $infile) or die "Kann $infile nicht lesen\n";

my $outfile = 'neu2.csv';
open (my $outfile_fh, '>', $outfile) or die "Kann $outfile nicht schreiben\n";
while (my $line = <$infile_fh>) {
    print $outfile_fh ...
}


open C, '<neu2.csv' or die $!;
open D, '>endprodukt.csv' or die $!;
while (<C>) {
   print D 
}