move($bookFiles[$h], $dir . "/Book Chapter/" . $bookName . "/" . $bookFileName[-1]) or warn $!;