my $cwd = getcwd;

       
        my ($oldlocation,$newlocation);
        $oldlocation = "$cwd";
        print "$oldlocation";
        $newlocation = "$cwd/$info[2] - $info[3]/$_";
        print "\n$newlocation\n";
        
        move($oldlocation, $newlocation) 
        or die "Could not move '$_' zu '$newlocation':$!";