foreach (@allFiles){
Move($_,$bakupdir);
}
#STRUKTUR VON DIREKTORYS ERZEUGEN
#*********************************************

sub Move {
my ($dir_file, $bakup) = @_;
my @dirs = split '/', $dir_file;
my $file = pop @dirs;
foreach (@dirs) {

next if -d $bakup;
mkdir($bakup) or print("Can't create dir $bakup: $!"),return undef;
}
rename($dir_file, "$bakup/$file") or
print("Can't move $dir_file to $bakup: $!"),return undef;
return 1;
}