Perl Files umbenennen anhand csv Datei

4220;13072_shop_1
4219;13071_shop_1
4182;13033_shop_1

use warnings;
use File::Copy qw(copy);
use File::Spec;

my $inputfile = 'C:\Data\export\ergebnis_test.csv';  
my $search1 = 'C:\Data\export\Bilder\original_images_alt';  
my $target1 = 'C:\Data\export\Bilder\test';  

open (my $fh, '<', $inputfile) or die "Fehler beim oeffnen: $!";  

opendir my $dirh, $search1 or die $!;

while (<$fh>) {
    @field = split(/;/, $_);
    my @files = grep { ! /^\.\.?$/ } readdir $dirh;
    for my $filename (@files) {
        my $alt = File::Spec->catfile( $search1, $filename );
        if( $filename =~ $field ) {
            my $neu = File::Spec->catfile( $target1, $filename );
            copy $alt, $neu;
        print "$alt, $neu\n";  
        }
    }
closedir $dirh;
close $fh;